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W6HIWS 

op 18 maaxt in Aiuiexdam U bevxedigend vexLopen. Ex waxen 56 Leden 
^Uatk ajLtTtJ^ ° VeA ^ oatveWrtatuien, 

£&tejJ*M* M "t* voty- moeten ZuLden: Op^egging van ket UdmaaUchap dieni 
te ge*Ju*d*n daox kei Ud ^ en met voox de aanvang van ket kaJb^^mawun 
de. opgegguxg Angaat. tiet tidmaaUchap eindlgt onmiddeUipx bi+ opge^naT 

A** 2 ****- lj galnogeen ovexvaJbclaumle moeien bevaUen. 

t>7n^uZt^ 6e ^T ? * ° n ^^ uien ^ bovengenoe.de e^^gingen 
<^£* °e^uux oon een naiax^ vook i± laten legmen. De.p> kan dan v<^/ogUUexing 

VlUUm van GeixUxen keeft in j*nuaxi van dU +aax gevxaagd am onUlagen te woxden van 
&n be^uux^exp^ki^ dnukke weAkpuJZdenTkt hniuuLxd rvLeTaZ 

J^gexd woxden. Namen* cUK/lt-otub bedankt vooTfe wexk, toUm/"^ 

fe^f^ V T °f a Jf^ mM^B^Sm we de. keex Ainu* VI A 

^^b^eU^^- t °^ i£md ' ^ bi^enkaeut in Utxeckt U doox he* 



CUWSN/EUm 



vex- 



G TT > ° L ^f n L £t&S8¥&& Van htAaA f n v °°* de. eg*"", die dU iaax nog moet 
fj bedoeltng dot memen die enlge. laxen exvaxina hJtZ 

m^^L KedeUjk oo de hooaf^t de rTT^A ^IZTrfhj 

^^axauO., aU p> eruge. i^d vx*+ mUCen maken om in de avondwten cuxuu tegeven. 



SUp de VxUa, 

-o-o-o-o-o-o-o-o-o-o-o 



Wat v i ncben 



i ft H **l Tk 



i \f~ ~! f 

Van, o 1 u b 1 e d e p ? 



Ik zou graag 
automatisoh: 



dat mi j n KIM 



de ingevoerde informatie opbergt 
in bandbestanden - en terug weet 
te vinden, zodra dat nodig is ; 
er rekening mee houdt, dat die 
informatie er is en 
zelf beoordeelt, welk werk nu als 
eerstvolgende moet gebeuren en dat 
organiseert en uitvoert. 

Erg veeleisend, als je erover na 
gaat denken, maar in bet byzonder 
fascinerend. 

Eigenlijk is ieder KIM-olublid wel 
bezig aan een jdeelv van die-zelfde 
wens - de ene met de me est ge- - 
sohikte recorder, de ander met sen 
moeizaam in gebruik nemen van een 
atidio-^tape v&dr georganiseerde op- 
slag van daiav <r ** 

Dat is mooi, maar mooier zou zijn 
als het niet zo gefsolWerd gebeur- 
de. Nil wordt welhaast ieder pr<>~ 
bleem door ieder clublid steeds 
ophieuw uitgezocht . Vaststaat, dat 
onze olubleden doorlopend met de- 
zelfde problemen worstelen, zelfs 
in eenzelfde periode en dat team- 
work tot snellere en betere resul- 
tat en zou leiden • 

Niet alleen het overleg werkt po- 
sitief $ ook het versohil in erva- 
ring en kermis per clublid brengt 
voordeel. Je yult elkaar aan. 

Eigenlijk zoekt ieder KIM-clublid 
die samenwerking - anders was hij 
geen lid geworden - m^ar dan rij- 
zen er allerlei practische pro- 
blemen, zoals het versqhil in de 
woonplaat s, de verwachte ti j dro- 
vende bijeenkolnsten, de verschil- 
lende uitgangspunten en, waar zou 
je moeten beginnen ? 

Het lijkt mid ideaal, als we het 
zover zouden brengen, dta een sa- 
menwerking op grote schaal ont- 



staat en ten gunste van ieder lid 
uitwerkt. Een dergelijke samenwer- 
king dacht ik te kunnen organise- 
ren zonder extra bijeenkorasten e.d« 

Nu zoek ik olubleden, die willen 
meedoen. Aan de ene kant de voorde- 
len en resultaten willen ontvangen, 
aan de andere kant hun steentje wil- 
len bijdragen door een georganiseerd 
aandeel te leveren om tot die resul- 
taten te koraen. 

Daarvoor hoe ft U dus niet te be- 
sohikken over een enorme kejinis, van 
zaken, maar alleen bereid te zijn om 
^at, tijd te b$steden> aan< een bepaald 
facet van de materiey de vraagstel- 
ling critisciL te bekijken, evenals 
de suggesties erover en U erin te 
verdiep&fe, ' hoe we met dat facet weer 
een stapje verder komen • 

Als U hieraan mee wilt doen, zou ik 
graag een brief je of telefoontjfe; van 
U ontvangen, zodat ik da,t weet. 
(naam, adres, telefooiiiiummer en welk 
facet van de KIM moment eel Uw aan- 
dacht heeft) 

U kunt dan al onmiddellijk een begin 
maken met het teamwork, door er aan- 
t ekeningen bi j te doen over Uw ge-^ 
dacht en,, kennis of documentatie met 
betrekkirig tot het onoderwerp van de 
lezing op 18 maart j*lVj die ging 
over bestanden-^organisatie. op tape* 
Ook knipsels, foto-copie§n en ver~ 
wijzingen naar artikelen zijn wel- 
kom, over dit of een aanverwant on- 
derwerp, zo TJ wilt. 

Twee weten meer dan een, dus 130 
moeteh nog meer weten. 

Ik wacht met spanning op Uw reacties 
aan 

C • J # Broekhui zen 
Meyrooslaan 25 
681 5 OT Arnhem 
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KIM 1 s grota broer, do PET 2001 
door Ho Burgers 

Hij is onverwacht sncl in ITederland leverbaar geworden f de PET, 
Commodore 9 s nieuwa perncnal computer. Onderstaand mijn ervaringen. 

De PET 2001 is gebaseord op dezelfde 65XX microprocessor als de KIM. 
Uitgerust met cassette recorder , toetsenbord met aparte cijf ertoetsen 
en bealdscharn van 1000 tekens (40 hor. x 25 vert.) en verder nog 
%M ROil waarvar. CK BASIC, en 8K RAM is het een prettig systeera. 
Over het algciiiean kun ja er vlot mee werken, de door Commodore 
gewijzigde cassette recorder , het beeldscherm met zijn horge schrijf- 
snalheid en waarschijnl ijk de 65XX maken het ook een snel systeem. 

Het toetaenbord is wel klein, maar wat een mogel ijkheden! 

Orrdat ik toch all can met twee vingers typ, is de afwijkende vorm 

niet zo'n probleem, het went snel. 

!)e verbinding mat do ingcbouwde cassette recorder werkt 
cok uitstekend, die start en stopt zodra de PET dit 
nodig vindt. Zijn er op de recorder toetsen in te drukken 
dan wordt dit op het tv~scherra gevraagd en na indrukken verschijnt 
dan :, ok ?f . Toch is normaal de recorder ook heen en weer te spoelen. 
Bij het zoeken verschijnen de namen van de gegevensf ile's die 
v vcorbij komen op hot scherm, of een signaal voor een probleem 

dat zidh bij f t laden voordoet. Erg duidelijk. Om van een goede t 

opname varzekerd te zijn voordat de PET wordt afgezet 

kan met hat verify coroxuando de (teruggespoelde) band nog eens 

met het geh^ugen worden verge! eken en dat is heel geruststel lend. 

De schri jf/leessnelheid ligt vrij hoog, een 8K in 2 min. 20 sec. 

is goed, het moet ca« 400 baud zijn gemiddeld. 

Ook lijkt in vergel i jking met de TRS-80, de snelheid gunstig 

waamec een for /next loop wordt gedaan. Bij 1=1 to 10000 , 

duurda dit volgens de ingcbouwde klok (TIME$) van de PET ll r 7 sec. 

Het op het beeldscherm overschri jven, dus verbeteren door 
op de'plaats v&si oen foute letter , een goede te tikken, werkt 
vlot en comfort abel * Bij bv. lOx return is door all een de 
lijnnummers te overschri jven na de eerste lijn, het copieren 
van de volgende negen return regel s in een wip gebeurd. 
De grafische tekens blijken voor een fraai beeld te zorgen, 
net in-prograituneren van alle cursor mogel ijkheden vereist wel 
enige studia. Er zijn ca. 316 tekens op het scherm te brengen. 
Dit maakt goed cgende grafieken of b.v. speelkaarten mogel ijk. 

Door de vele uitgahgen kan een uitbreiding gemakkelijk 
plaat3 vindsa, daar sorgen de 40 x2 1 i jns memory bus f de 
users port (Sbits, handshaking, tv monitor signaal ), de tweede 
cassette aansluiting en de IEE-488 bus wel voor. 

Met ComirtodoreHBASIC laat zich goed werken, PEEK en POKE 

commando's en USR maken een programmeren in machinetaal 

mogel ijk. Via SYS kan da overgebleven ROM worden bereikt. 

De 8K RAM k&n door over! append inlezen van een volgend programraa- 

deel worden *verlengd', variabelen worden dan door gegeven! 

De bij geleverde manuals zijn goed, al is extra documentatie over 

_____ _ _ _ _« _ — 
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Be Telex: een goedkope teletype 



Nuamers 



TELEX 



Biadi 1 van 5 



De Telex: een goedkope teletype , 
— 

Voor de meesten van ons is een teletype een veel te 
machine. Zelfs een gereviseerd tweedehands exemplaar kost dui- 
zenden guldens. Maar een telex is dikwijls al voor een paar 
hinderd gulden te krijgen en zeer goed bruikbaar als vervanging 
voor een teletype. 

Dit verhaal is bedoeld voor hen, die een telex met een mini- 
mum aan hardware en software aan hun KIM willen koppelen. Geheu- 
genuithr aiding is daarbij niet nodig, omdat we zoveel mogelijk 

8 uit de ROM van de KIM gaan gebruiken. 



Leer Uw Telex kennen. 



De telex, die ik kon bemachtigen, kwam geheel zonder doku- 
mentatie. Omdat er nogal wat versohillende soorten aangeboden 
worden 3 wordt er hier vanuit gegaan, dat U nog niets weet van 
Uw telex. Maar ieder willekeurig type is bruikbaar. 

Normaliter heeft een telex een zespolige aansluitplyg . 
Twee kontakten zijn verbonden met een relais, dat ontvangen im- 
pulsen omzet in afgedrukte karakters; twee kontakten gaan naar' 
een schakelaar, die het aanslaan van een toets vertaalt in het 
volgens een bepaald patroon (code) openen en sluiten. De andere 
twee kontakten worden niet gebruikt. Bij normaal gebruik zijn 
relais en schakelaar in serie geschakeld, zodat een toetsaan- 
slag onmiddellijk het afdrukken van een karakter tot gevolg 
heeft. Dit zogenaamde echo wordt bij ons echter verzorgd door 
de KIM zodat we relais en schakelaar volledig onafhankelijk van 
elkaar kunnen bekijken. 

Meet de weerstand tussen alle punten van de plug* We moe- 
ten nu de aansluitingen van het relais en de schakelaar kunnen 
ontdekken. De schakelaar, die normaal gesloten is, had bij mijn 
telex een weestand van ongeveer 60 ohm, het relais ongeveer 
200 ohm. Normaliter werkt een telexrelais op 60 mA zodat een 
12 V. relaisvoeding het in mijn geval vlekkeloos deed. Heeft V 
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dat geluk niei 3 probeer dan het volgende: neem een regelbare 
voeding, eluit het relais er op aan en draai de epanning lang- 
zaam op* tot hep relais inkomt. Je hoort dan een duidelijke 
klik. teem voor de werkspanning van het relais nu deze epanning 
plus ongeveer SO prooent. Ale U dan ook uitkomt op 12 V ie dat 
wel erg handig. Anders zit er niete anders op dan een extra 
hulpvoeding te bouwen. 

De interface, 

— ' • 

De interface hardware ie erg simpel en epreekt eigenlijk 
voor zichzelf. Het enige bijzondere ie t dat d.m.v. een laag- 
doorlaat filter de dender van de eahakelaar wordt onderdvukt. 
Voeding a spanning en zijn de S V van de KIM en de eerder bepaalde 
velais epanning . Vergeet niet beide goed te ontkoppelen. 
APPLICATION IWBHPACE 

mil 






(PRIWBR 

_± 200 01 m 



(XEIBOiXq) 
+ 60 01m 



Traasirtorent BO 107 of so (W»), Model 114001 of ao (DOS) 



Strooaverbruik bij 5 Yi wuciaaal 12 «A. 


tatu» ingang. 
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£iS2252£ s telex 



T 



3 



Testen. 



Ale we de interfaeeprint tweemaal goed hebben gekontroleerd, 
eluiten we allee aan: de print aan de KIM en de telex aan de 
print, Zorg er wel voor, dat de telex geaard ie, let de telex 
en de KIM aan, De telex moet nu normaal werken, d,w,», dat na 
het indrukken van een toete ook een karakter afgedrukt moet wo*- 
den. Ale oak dat klopt, eijn we aan de volgende etap toes de KIM 
moet de timing van de telex nog leren, Qelutkig here ft de KIM oak 
daarvoor een programmaatje aan booed, dat eohter eenklein beetje 
gewijeigd moet worden, Tik op de KIM het volgende programma int 



0000 A9 FF 
0002 8D F3 17 
0006 2C 40 17 
0008 30 FB 
000A 40 38 1C 



LDAIM $FF 



DET1 



STA 
BIT 
BMI 
JMP 



CNTB30 
SAD 
DET1 
$1C38 



We etarten nu het pvogramma met 0000 60 en elaan op de telex 
de toete "lettere" aan, Onmiddellijk daarop lioht de dieplay op 
en kontroleren we de inhoud van de geheugenplaateen 17F8 en 17F3, 
In mijn geval vond ik: 




(CNTB30) 



Berhaal deze procedure nog een paar maal en ale U eteede 
praktieoh dezelfde getallen vindt, wekt het ontvanggedeelte, 

DE SOFTWARE i 

Bet belangrijkete van de eoftware voor de telex ie, dat we 
eoveel mogelijk gebruik gaan maken van de eubroutinee, die in de 
KIM aanwezig zi$n. Bet enige, dat eoht andere moet, ie dat etuk 
programma, dat andere wordt doordat de telex Baudotoode gebruikt 
en een teletype de ASCII-eode. We beginnen met twee subroutine^: 
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Blpm 
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A 



3 h 



1) Het printen van een karakter £ j Hiervoo* is beschikbaat de sub- ;; 



routine OUTCH op geheugenplaats IE AO. Deze subroutine p?int 



' : het teken iiit het A-register dat er als volgt uitziet\ 



H3 



O.v. 



3j 



ijlii (5 bit code) 



Probeer dit uit met het volgGndp programme Oz.Qr^ er i*&& >voor 
dat de timingeonstantes in 17F2 en 17F3 zijn ing-evuld )[: ' • 



0010 Ad El 
0012 20 AO IE 
0015 20 4F 1C 



B 



LDAIM $E1 
JSR OUTCH 
JMP START 



I rfi 



If: 



0<? teZex drwfet nu of cen "e" of i een "3" a/, afhahkelijk van 
de mode (letters of cijfers). 
N. B. : deze subroutine vernietigt A en Y. 



/i 



S - s •■ - 



2) Het lezen van een karakter. Hiervoor is wel aen subroutine 
aanwezig^ maar die wevkt niet zonder meer. We wijziger. hem 
als volgt: • a N't* > 



86 FD 



■ ■ : . :•■ ■ 



0022 A2 08 , . 
VV2*f2C 4 0 17 GE1 

0027 30 FB 

0029 4C 67 IE 



OlA 

LDXIM $08 

BIT „ ( 



De plaats waar dit nieuwe stukje subroutine in het g>eheug&n 
komt, is niet belangrijk. De subroutine haalt een karakter op 
van de telex en zet het als volgt in het A-register: 

Oil ( 5 bit code) 

■ 

Tik het bovet 



in en bovendien het volgende test 

0030 20 2-0 00... (7U *0020 

p 033 " 2 9 If* £ iWPIAf *JF 

0035 4£ JC JAfP *1<74F 



— - — 1 1 ■ 
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BE TELEX 1 EEN OOEDKOPE TELETYPE 



2H522E* TELEX 



Start het programs mot 0030 C$ en sla een toets aan op de telex. De 
display lioht weer op en ale we nu geheugenplaats 0CF3 uitlezen, vinden 
we daar de Baudot-oode van het ingetikte karakter* Als we geen lijet 
heVben van dese code, kunnen we hem zo zelf vinden* 
N#B«$ de a e subroutine vernietigt A en Y. 



Wo kunnen nu met de telex praten. We kunnen een karakter wegsohrijVen 
en we kunnen een karakter inlecen. Hoe kunnen we nu de telex op deaelfde 
soani ox* g6^3nx«Ll&»exx als m Ixet ICI^4* , *3ia^id!hoejiC voo3^ de toloty^JO In osolupe^von Is? 
Dat is m in prinoipe met noeili meer. Het sal bovendien Wi jken, dat 
het erg weini& xreheu^enruimte kost* 

In de volgende OK KEMER sal ik deel 2 van mi jn verhaal laten opnemen, 
dat vollodig software gerioht is en een "operating system? voor de telex 
zal 



J.A. Blon 
Tarantostraat 46 
Eindhoven 

AAH0BB0DBK : 

Ponshandlezer 8 gats f 150f" 

Poneha&dleser 5 gats f 100 f » 

Micro computer systeem ooapleet (4004) f 100,« 

Wirewrap voeten f 0,10 per oontaot* 

Belleni 078 - 71607 (v # Herk) 
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Vroeg of laat zullen de meeste (kim) computer hobbyisten hun systeem uit- 
breiden met een Rs- 232 •interface. „ „ 

Voor diegenen, die niet thuis zijn in data communicatie technieken, wil 
ik iets meer ingaan op de Rs 232 interface. 



Rs 232 is een verzameling van specif icaties die betrekking hebben op seriele 
data transmissie. 

Een soort vereniging van fabrikanten in de electronische industrie (Electro- 
nics Industries Association afgekort AEI) heeft alle specif icaties gestan- 
daardiseerd die betrekking hebben op deze Rs 232 , met het doel dat electro- 
nische data verwerkende apparatuur die d*ze fabrikanten produceren, met 
elkaar kunnen concauniceren. 



Ten eerste de spanningsniveau's van de logische "I* en H 0" zie figuur 1. 



Loaf 




r 



j^ft ft : 



Zoals v/e in figuur i kunnen zien, zijn er 2 niveau nl. Rs 232 C en 
Rs 232 B. 

De logische *0" van de Rs 232 C gaat van +5 tot 4-15 V 

H M II J M M II II II m tOt -15 V 

De logische "0" van de Rs 232 B gaat van +5 tot +25 V 
"1" " « * m -5 tot -25 V 

&alks van d® twoo (Es 232 B of C) u womt toepassen wordt aangegeven in de 



van <?e te 

Via deze Rs 232 interfaces kunnen we 00k coaeauniceren via een moduli (modu- 
lator/demodulator). Deze modum dient om digitale data 00 te zetten (te modu- 
leren) in geschikte signalen zodat de data via het normale telefoonnet ver- 

zonden kunnen worden. 

Ook dient een modum om signalen vajiuit het telefoonnet om te zetten in digi- 
tale data (demoduleren) . 4 ! 
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Als we via zo'n modum coiranuniceren zijn er buiten de norma le data lijnen 

(dus te versturen en ontvangen data) nog enkele signalen nodig. 

Die signalen noemt men de z.g. hand shaking signals, m.a.w. dit zijn sig- 

naal levels die de status van de modum of de aangesloten peripheral aange- 

ven. 

Een logische "0" geeft aan dat het signaal waar is (positieve spanning 
level) . 

En een logische *%* wanneer het signaal niet waar is 

.• 

25-polige D-connector 

■ ■ 

De pinnummers van de 25-polige D-connector van de Rs 232 interface zijn 
ges tandaar diseerd . 

We zullen de belangri jkste aansluitingen van deze connector nader besprelcen, 

Pin 1 protective* ground (is aangesloten op de massa) 

2 Data Transit (vragzenden data) 

3 Data received (ontvangen data) 

4 request to send (terminal is gereed om data te versturen) 

5 clear to send (bericht naar terminal dat data verstuu 
worden) 

6 Data set rerdy (modum is gereed am data te versturen) 

7 signal ground ( ground van de Data lijnen) 

8 data carrier detect (modum Jieef t signaal van een ande 

ontvengen dat deze crereed is) 
9-14 ongedefinieerd 

15 Transmitted bit clock internal 

16 ongedefinieerd 

17 received bit clock 
18-19 ongedefinieerd 

20 Data terminal ready 'terminal staat on-line) 

21 ongedefinieerd 

22 ringindicator 

23 ongedefinieerd 

24 Transmitted bit clock 

25 ongedefinieerd 
Ogbouw_van_een_character 



. . . 



$ Esp character dat verstuurd of ontvangen wordt ziet er 
riele data overdracht (Rs 232) als volgt uit: 



j - T r -r 

I • ' i i ' • 1 

| J - - -u 1 » 1 k — 



Stunt 




pfini^y STOP 

Het eerste Wk$WmX$**a* h*t iM^M'^M start 

bit dient om de ontvangende eenheid te dete " 

■ VOl9t - «K 

Datua in^g ngt jjj Vervangt : 



»cteren dat er een character 
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Vervblgens wordt het character gestuurd dat uitf een~aarital bits bestaat. 
Dan volgt eventueel het parity bit, dat oneven, even of geen kan zijn. 
Als laatste voigen er <§<§n of tw<§<5 stop bits, die aangeven dat dit het einde 
van het character is, zodat de aangesloten eenheid weet dat 
bit dat ontvangen wordt weer een start bit moet zijn, enz. 

■ • ■ 



Snelheid waarraee characters worden verstuurd of ontvangen. 



De snelheid waarmede characters worden verstuurd of ontvangen, wordt uitge- 
drukt in het aantal characters per seconde, dit noemt men Baud rate. 
Ook hiervoor gelden standaard waarden. 
Veel gebruikte snelheden zijn: 

110 - 150 - 300 - 600 - 1200 - 2400 ~ 4800 en 960Q baud. 



Als we bijvoorbeeld nemen 1200 baud, dan betekent dit dus dat er 1200 
characters per seconde worden verstuurd of ontvangen. 
We hebben eerder gezien dat &&n character bestaat uit 10 of 11 bits. 
(1 start bit - 7 data bits - 1 parity bit - 1 of 2 stop bits) . 
Dat betekent dat we dus 1200 x 10 (of 11) bits per/sec. afhandelen. 
Het spreekt vanzelf dat zowel de ontvangende als de eenheid die ver- 
stuurd dezelfde baud rate moet hebben, anders is communicatie niet 

Line ve; 



jk. 



Tenslotte nog iets over de line verbindingen die we kunnen toepassen. 
Daarin kunnen we drie soorten onderscheiden, nl. 

le Simplex 
2e Halfduplex 
3e Full duplex. 

Simplex is 66n li jn verbinding waarin de data slechts in. *in richting 

verstuurd kunnen worden. 



duplex is 66n lijn verbinding waarin de data zowel verstuurd als 

ontvangen kunnen worden, met dien verstande dat dit 



en om 



moet 



Full duplex 



lijnen* «*n voor 



is een verbinding die bestaat uit twee 
versturen en 66n voor het ontvangen vai 
Dit kan in dezelfde tijd gebeuren. 

Alhoewel ik mij realiseer dat deze materle niet in alle facetten is 
behandeld, hoop ik dat voor diegenen, die weinig of niets van data 
communicatie af weten, iets van deze techniek door middel van dit 
artikel is duidelijk geworden. 

In de volgende "KIM KE^H M zal een uitgewerkt hardware-schema 
van de Rs 232 worden gepubiiceerd. 



Datum Tngang: 


Vervangt: 




Ref # : 

R« Tleesch Dubois 


10 Mi 1978 


L , ! 
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.1 . 



KIM Application Not* 

MGS Technology 
950 Eittenhouse Road 
Morrbtown, PA 19401 



The koyboari ®& mm® KIM-I^ has a <4 bcracy" 
key problem end toe "9," "I> f w c: "C" keys 
may foil entirely. The problem b due to tho u:o 
of the outer cd^c? toe cr^-nctton dices to 
jusap over the center contact line on the key- 
board pc. Since the d fces ili orJy held against 
the pc board with tape, the contact b poor. 
There are fn r e of fchees jwafKHrsti in cerlcs for 
the i4 C" key (fern* for the "9" key), thereby 
compounding ths psofolcso. Toche4t tot tho 
prdb!em« roeasurs lho wditaasa from hsyiwrod 
pin 3 to pto 15 (rmrabercd f^oss left to right cs 
shown) with the "C" hey tfoprrccd. It should 
be less than cbout 19 ohicc. 

Fortunately, thb pioblesn can be easily correct- 
ed. The solution fa to soWer a tt&i wi?o jumpsr 
across thesa poor c^ntects rs £oU?~~. Dissemble 
tho keybsror] by first remorfttj £he fo@t rcrctrs 
on the t:.?h o! the Keyboard at fchn co?no!3. 
Then remove tho t\-;o refining b&hMmi that hold 
the keyboard to the KIIU-X (note for reassembly 
that they arc fonpff)* Nt^g careful net to pull 
the keyboard pc beard wmy fcira tho KIM-1 
board - it's only attached by the colder ai one 
end. With tho KIM-1 upside do^m, teparate the 
black keyboard panel from the keyboard pc 
board • You may wish to cover the hcyboird 
with masking tape to bold *he hoys in y-toce. 
After cutting four MM3 hales tb.rou£i the ctonr 
Mylar at the lections indicated by ah X In the 
iisure, the lines tmm *C" to "3," *'D" to 



"A" to "7" and the line to "B" are exposed. 
Connecting these points by soldering a thin 
wire between them routed es shown is suffi- 
cient to bridge the Ave potentially poor con- 
tacts. 



1 £ <j .« •* 7 ? 
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KIM MEMORY TEST 



Nummen 



PROGRAM DESCRIPTION 



Blads 



1 of 8 



KIM MEMORY TEST FOR A 

; 
* 

1 
i 

t 

i 

I 

; 

; 

* 

i 

} 

i 

i 



PROGRAMMER* 



« » • 



UUNE 1977 



SIEP OE VRIES 

WESTVRIES COMPUTER CONSULTING 
POSTSOX 80 
OOSTZAAW. "WLLAlvD 



ALL RIGHTS OF THIS PROGRAM ARE RESERVED BY 

WESTVRIES COMPUTER CONSULTING. 

— SECOND EDIT i 760409 



THE PURPOSE OF THIS PROGRAM IS TO TEST ANY 

ARBITRARY CONSECUTIVE PART OF RAM -MEMORY IN 
A KIM-SYSTEM OF ANY SIZE. 



* 

i 

' 

; 

; 
; 
; 
; 
; 
s 
i 
i 
} 
i 
s 

; 

; 
; 

} 
i 
} 
} 
* 
i 
i. 
i 
i 
i 
s 



— THE PROGRAM WILL TEST ALL LOCATIONS IN THE 
AREA ASSIGNED FOR TEST WITH ALL POSSIBLE (256) 
BITCOMSINATI ONS AND CHECKS IF EACH LOCATION 
CAN CONTAIN ANY OF THE POSSIBLE BI TCOMBI NATI ONS * 

- THE TEST IS BEING DONE IN SUCH A WAY* THAT NOT 
ONLY BIT-ERRORS ARE DETECTED* BUT ALSO SELECTION 
ERRORS* THAT CAUSE THE MEMORY TO HAVE MORE THAN ONE 
ADDRESS FOR THE SAME PHYSICAL LOCATION. 

THE METHOD USED HERE IS TO WRITE INTO ALL 

LOCATIONS A TESTPATTERN* THAT IS BEING INCREMENTED 
AFTER IT HAS SEEN WRITTEN AWAY « IF THIS HAS BEEN 
DONE 856 TIMES* ONE EXTRA INCREMENT IS GIVEN. 
AFTER THE WHOLE AREA IS WRITTEN* EACH LOCATION 

VALUE COMPARED TO THE VALUE THAT 
TO RESIDE IN THAT LOCATION. 
THAT THE LOCATIONS FROM 0-FF 
CONTAIN A PATTERN FROM 0-FF* THE LOCATIONS FROM 
100-lFF CONTAIN A PATTERN FROM 1-00* THE LOCATIONS 
FROM 200-2FF CONTAIN A PATTERN FROM 8-01 ETC. 

- THIS IS REPEATED OVER THE INDICATED AREA 856 TIMES* 
WHERE THE STARTING VALUE FOR EACH PASS IS EACH TIME 

I HIGHER THAN THE PREVIOUS PASS. 

■ 

--- PROCEDURE TO RUN THE TEST* 

- CONNECT THE MEMORY TO THE KIM- SYSTEM. 

- READ THE PROGRAM INTO THE KIM-MEMORY. 
THE PROGRAM OCCUPIES LOCATIONS 200-3FF AND 
USES PAGE ZERO LOCATIONS Dh-Fd. 



IS READ AND ITS 
CAN SE EXPECTED 
- THE RESULT IS* 



Datum ingangt 


|vervangt: 






52£t< 
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Slop de Tries 



SIM WSSOWX Tffi5T 



FROGRAH DESCRIPTION 




(Coa^'d) 



5 
i 

; 
; 
; 
i 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
i 

i 
; 
; 
•> 
i 
» 
; 
; 
} 

• 



; 
; 
; 
; 

; 
; 
; 
i 

i 
} 
s 
i 
i 
; 
; 
* 
* 
* 



- SELECT THE 
THAT CONTAIN 
FOLLOW! m t 



EXAMPLE J THE TEST 
I 2M - I 7 h i* ♦ THEN 



AREA TO BE TESTED ♦ THE LOCATIONS* 

THE ADDRESSES OF THE AREA ARE THE 
17F5 ■ LOW ORDER PART OF FIRST 

LOCATION IN TESTAREA 
17Ffo = KIOH ORDER PART OF FIRST 

LOCATION IN TESTAREA 
17F7 b LOWORDSR PART OF LAST 

LOCATION*! IN TESTAREA 
17F» ~ HI bHORDER PART OF LAST 
LOCATION* I iN TESTAREA 
HAS TO oE APPLIED TO LOCATION 



LOC 
LOC. 
LOC « 
LOC 



17F7 
17Ffc 
1 7F7 



»#0 

* 12 

= m 

* ib 



- START THE TEST PROURAN AT 0200. 
THE TEST CAN WORK EITHER WITH THE KIM-DISPLAY* 
OR WITH THE TELETYPE • THIS DEPENDS UPON THE 
STATE OF THE TTY- BIT CAS THE KIM-MONITOR DOES) * 



TELETYPE: 



KIM-KEYBOARD J 



-IF THE TEST 



IF NO ERRORS ARE DETECTED* THE 
TYPEOUT "TEST DONE M OCCURS • 
ERRORS ARE TYPED AS I 

- PASS* ADDRESS* VALUE READ* EXPECTED 
IF MO ERRORS ARE DETECTED* FINALLY 
THE DISPLAY WILL SHOW ALL 0*S. 
AN ERROR IS SIGNALED QY THE DISPLAY 
OFF THE LOCATIONS ADDRESS AND THE 
PASS-NUMBER. THEN THE USSR CAN 
PRESS DA IN ORDER TO bET 
READ VALUE AND EXPECTED VALUE ON 
THE DISPLAY IN THE RJGHT 4 DIblTS. 
PRESSING AD SHOWS AbAlN THE ADDRESS 
AND PASS -NUMBER. 
THE TEST WILL CONTINUE IF UO 
IS PRESSED. 
IS FINISHED.- IT CAN BE REPEATED* BY 



E 



PRESSING AWY KEY OF THE KEYBOARD IN USE. 

- INDICATION OF SPEED t ONE COMPLETE 256-PASS RUN 
FOR A AK AREA TAKSS 130 SEC ONDS • 

THE TIME TO TEST AN AREA IS PROPORTIONAL TO THE 
SIZE OF THE AREA UNDER TEST ♦ 



- NOTES THE TEST 
IT IS QftDEf 
THUS THE 
THE AREA'S 



IS WOT AWARE OF THE FACT* THAT 

DESTROY ITSELF IF THIS IS WANTED* 
'SRS MAY NOT oE SET IN ONE OF 
THE TEST. 




; -— D S ¥ I II I T I 0 N S 13 f KIM 

40 i 7 SAD-5174 0 T7Y-B1T 

F217 SPEEDS 1 7 F2 YTY-SPZED LOCATIONS 

2FIE CRLF=5 1E2F PR I NT A CARRIAGE RETURN-LINEFEED 

3B1E PRTBYT=SiE3c PRINT A IN HEX 

9E1E PRTSPA=S1E9E PRINT ONE SPACE 

A01E OUTCH-SIEA0 PRINT CHARACTER IN A 

5AIE GETCH=51E5A READ CHARACTER FROM TTY 

1F1F SCANDS^SIFIF DISPLAY CONTENTS OF \F9 ETC 

6A1F GETKEY=$ i F6A READ KIM-KEYBOARD 

FE17 INTVEC=S17FE I NTERRFT VECTOR 

FA 17 STPV£C=Sl7FA NMI VECTOR 

FE1E 0NEKEY=5 1 EFE .'EST IF KIM-KEY PRESSED 

F517 FIRST«S17FS FIRST ADDRESS TO BE TESTED 

F717 LAST=5>17F7 LAST ADDRESS + I TO BE TESTED 

; — D E F S N E D CONSTANTS 

} '„ -. -' " '• .'■ •• 

1C00 STPHI--S1C STOPADDRESS ■ 2 BYTES 
000(1 STPLO-0 

0200 DELAYHffS TTY-SPEED DELAY FOR 110 BAUD • 2 BYTES 

8000 PELAYL=5H9 

0000 ,BEUVAL«0 FIRST TESTPATTERN 

1000 AD =5 10 VALUE FOR AD-KEY 

1100 DA«2>!) VALUE FOR DA-KEY 

1300 <iO-Si3 VALUE FOR GO-KEY 

i 

! ---PA ( : - E ZERO LOCATIONS 

F900 P0lNT=iF9 DISPLAY AREA 

E20R T5TAD=4E2 ADDRESS OF LOCATION TO TEST 

E100 TSTVAL-SE1 INITIAL VALUE OF PASS 

E000 HULP=r,E3 TEMPORARY FATTERN 

DF00 7STCNT=3DF VO INCREMENT PATTERN AFTER 256 LOC'S 



KIM ICTORY TEST 



IEITIALISATIOII - 



START OP TEST 



Mui mar: 



2i£l: 4 of 8 



; TEST INITIALISATION 

; 





0002 


*=S200 




0200 


78 


T j\i I T SKI 




1 


D8 


CLB 


- 


2 


A980 


LDA 


^DELAYL 




8DF217 


STA 


SPEED 


7 


A902 


LDA 


0DELAYH 

W Ju *«J #* 4 4 I 


9 


8DF317 


STA 


SPEED* 1 


c 


A900 


LDA 


2STPL0 


E 


8DFA17 


STA 


STPVEC 


021 1 


8DFE17 


STA 


I N?VEC 




A91C 


LDA 


0STPHI 


6 


8DFB17 


STA 


STPVEC+ 1 


9 


8DFFI7 


STA 


INTVEC+1 


c 


A900 


LDA 


0BEUVAL 


E 


85E1 


STA 


TSTVAL 


0220 


A901 


LDA 


c\ 


2 


2C4017 


BIT 


SAD 


5 


D010 


BNE 


J MPT ST 


7 


202F1E 


JSR 


CP.LF 


A 


A200 


LDX 00 


C 


3DDD03 


IWTUER 


LDA 




20A01E 


JSR 


OtJTCH 


0232 


E8 


I NX 




3 


E01 1 


CPX 


cINTSIZ 


5 


D0F5 


riNE INTWEP 


7 


20FE1E 


JMPTST 


JSR 


A 


D0FB 


BNE 


JMPTST 


.C 


4C4A02 


J MP TST1 






; 

i S T A R T 




4A02 


*=$24A 




02£A 


2085G2 


TEST 1 


JSR 


D 


20A202 


WRITS 1 


JSR 


0250 


203802 


JSR 


TSVEND 


3 


F0F8 


5E(0 


WRITS 1 






; READ PATTER 


5 


208502 


JSR 


TSTI NT 


8 


85E0 


STA 


HULP 


A 


C6E0 


DEC 


HULP 


C 


20E102 


REATSl 


JSR 


F 


C5E0 


CMP 


HULP 


0261 


F003 


BZQ 


READOK 


3 


20F602 


JSR 


ERROR 


6 


203802 


READOK 


JSR 


9 


F0F1 


BEO 


REATS 1 






; END OF A PA 


B 


E6EI 


INC 


TSTVAL 


D 


D0DB 


BNE 


TEST 1 



DISABLE INTERRUPT 
CLEAR DECIMAL MODE 
SET TTY-SPEED 



SET THE VECTOR'S 



INITIALIZE FIRST VALUE 
TEST IF TTY PRESENT 



BRANCH IF NO 
YES* INITIAL 



WAIT UN TILL bOKEY RELEASED 



0 F 



TSTINT 



T H E 



T E 



DONE ? 



INITIALIZE A PASS 
WRITE NEXT LOCATION 



BRANCH IF NO 
sCK. 
INITIALIZE m 
SAVE PATTERN 



im READ NEXT LOCATION 

COMPARE READ AND EXPECTED 
BRANCH IF OK 

TOO BAD • REPORT THE PROaLEh 
SND FINISHED WITH PASS ? 



F 207703 
0272 4C0002 



BRANCH IF NO 

— THE FULL TEST IS GOftPLETE 
JSR TSTFIN 
«JM? IN1T 



BglS fiJIBBSSS * 
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KIM MEMORY TEST 



SUBROUT3 



I 



Blad: 



5° f 8 



0885 
8 
A 
D 
F 

0291 
3 
5 



02A2 
4 
5 
7 



8502 

ADF517 

85E2 

ADF617 

85E3 

A5E1 

A200 

86DF 

60 



A202 
81E2 
18 

6901 
60 





S802 


02B8 


E6E2 


A 


D002 


C 


E6E3 


E 


A4E2 


02C0 


CCF717 


3 


D00A 


5 


A4E3 


7 


CCF817 


A 


D003 


C 


A0FF 


E 


60 


F 


C6DF 


02D1 


D005 


3 


E6E0 


5 


18 


6 


6901 


8 


A000 


A 


60 




E102 


02E1 


E6E0 


3 


A1E2 


5 


60 


Datu-n ingang: 



i 

i 



---SUBROUTINES 



- INITIALIZE A READ OR WRITE PASS 
TSTAD WILL CONTAIN FIRST ADDRES 
A WILL CONTAIN FIRST PATTERN 
i X WILL CONTAIN ZERO 

*=4285 

TSTINT LDA FIRST 

STA TSTAD 
(PFSTHI 
TSTAD+1 
TSTVAL 
#0 

TSTCNT 



PRESET ADDRESS 



VALUE 



IN A INTO THE 
ADDRESS IS IN 



"TSTAD" 



- 



STA ( TSTAD* X> X ASSUMED TO BE ZERO 



PATTERN 



LDA 
STA 
LDA 
LDX 
STX 
RTS 

; WRITE PATTERN 

; LOCATION WHOSE 

i - INCREMENT A. 

*=*2A2 

WRTLOC 

CLC 

ADC £1 
RTS 

I TEST FOR END OF ONE PASS. 

•TSTAD' IS INCREMENTED. ON LEAVE ZERO MEANS NOT DONE 
i A AND X ARE RETURNED 

*=S258 

TSTAD 

BNE 
INC 
LDY 
CPY 
BNE 
LDY 
CPY 
BNE 
LDY 
RTS 
NOT END 

BNE 
INS 
CLC 
ADC 
NOPS LDY 
RTS 

i READ NEXT LOCATION 

*=52E1 

READNW INC HULP NEXT PATTERN 

LDM < TSTAD* X> READ THE CELL 

RTS 



NOHI 



INC 

NOHI 

TSTAD+1 

TSTAD 

LAST 

NOTEND 

TSTAD+1 

LAST+ 1 

NOTEND 



DEC TSTCNT 



HOPS 
HULP 

c 1 

#0 



9 APRIL 1978 
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ERROR HAHDLIHQ 



— 



— 



SS** 6 of 8 









F602 


02F6 


48 


7 


8A 


8 


48 


9 


98 


A 


48 


S 


AD4017 


E 


2901 


0300 


F032 


2 


A5E1 


4 


85F9 


6 


A5E2 


8 


85FA 


A 


A5E3 


C 


85F5 


E 


20B903 


031 1 


C910 






5 


C91 1 


7 


F00A 


9 


C913 


B 


D0F1 


D 


68 


E 


A8 


F 


68 


0320 


AA 


1 


68 


2 


60 


3 


A900 


5 


85FB 


7 


BA 


8 


5D0301 


5 


85FA 


D 


A5E0 


F 


85F9 


0331 


4C0E03 





; ERRORHANDLING 

; 

; REPORT AW ERROR • 

J ON ENTRY A CONTAINS READ PATTERN* 'HULP CONTAINS 

; EXPECTED PATTERN. 

A*X AND Y REMAIN UNCHANGED. 
*=S2F6 

ERROR PHA SAVE ALL REGISTERS 

TXA 
PHA 
TYA 
PHA 

LDA SAD TEST WHICH DEVICE TO USE 

AND * 1 

BEQ ITSTTY 

I THE KIMDISPLAY AND KEYBOARD ARE USED 

i DISPLAY ADDRESS OF CELL IN ERROR AND PASSNUMoER 

ADPASS LDA TSTVAL MOVE DATA TO DISPLAYARfcA 

STA POINT 

LDA TSTAD 

STA POINT* 1 

LDA TSTAD+1 

STA POINT+2 

DISPUM JSR READSS DISPLAY AND READ 

CMP * AD AD-KEY PRESSED ? 

BEQ ADPASS 

CMP #DA DA-KEY PRESSED 

BEQ BITS 

CMP <?G0 GO-KEY PRESSED ? 

BNE DISPUM IF NONE* IGNORE 

LEAVE PLA GO-KEY* RETURN 

TAY 
PLA 
TAX 
PLA 
RTS 

; DISPLAY DESIRED AND READ PATTERN 

BITS LDA 00 

STA POINT+2 

TSX 

LDA S103*X GET SAVED ACC FROM STACK 

STA POINT+1 

LDA HULP 

STA POINT 

JMP DISPUM 



9 AF2IL 1?73 











iRef.t 













; PRINT ON TTYt 

; PASS ADRS VAL EXP* 



4 


202F1E 


ITSTTY 


JSR 


CRLF 


7 


209EIE 


JSR 


PRTSPA 




A 


209E1E 


JSR 


PRTSPA 




D 


A5E1 


LDA 


TSTVAL 


■ 


F 


203BIE 


JSR 


PRTBYT 




0342 


209E1E 


JSR 


PRTSPA 




5 


A5E3 


LDA 


TSTAD+l 




7 


203BIE 


JSR 


PRTBYT 




A 


A5E2 


LDA 


TSTAD 




C 


203BIE 


JSR 


PRTBYT 




F 


209E1E 


JSR 


PRTSPA 




0 352 


209E1E 


JSR 


PRTSPA 




5 


BA 


TSX 






6 


BD0301 


LDA 


S103>X 




9 


203BIE 


JSR 


PRTBYT 




C 


209E1E 


JSR 


PRTSPA 




F 


A5E0 


LDA 


HULP 




0361 


203SIE 


JSR 


PRTBYT 




4 


4C1D03 


JMP LEAVE 
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KIM MEMORY TEST 


Nummer j 
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} 
I 
} 
i 
I 
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---MISCELLANEOUS 
FINAL SUBROUTINE. 



ROUTINE 



OR PRINT 'TEST DONE * 



SCANDS 

BRANCH IF NO 
KEY PRESSED. 



* 



7703 *=S377 
0377 AD4017 TSTFIN LDA SAD 

A 2901 AND i?l 

C FO0E oEO TYEND 

E A900 LDA #0 

0380 65F9 STA POINT 

2 H5FA STA POINT* 1 
4 B5FB STA POINT+2 

6 20IF1F DISPEN JSR 
9 F0FB BEO DISPEN 
B 60 RTS 
C 202F1E TYEND JSR 
F A2M0 LDX 00 

W391 BDA003 WEREND LDA ENDMES/X 

4 20A01E JSR OUTCH 

7 E8 I NX 

8 E009 CPX S ?ENDSIZ 
A D0F5 BNE UEREND 
C 205A1E JSR GETCH 
F 60 RTS 

03A0 544553 .tmtmtS .TEXT 

3 5420444F4:45 
0900 E>:DS I -ENDUES 

1 DISPLAY ON THE KIM-DISPLAY 

S RETURN TO CALLER AS SSON AS A 

; PRESSED » RETURN WITH KEY-CODE 

*=$3B9 

READDS PHA 
PRESCA JSR SCANDS 

BEQ PRESCA 
JSR GETKEY 

TSX 

STA &10I*X 

JSR SCANDS 

VOKAL 



KEY PRESSED 
START AGAIN 



WAIT UNTILL KEY 



•TEST DONE" 



PRESSED 



03B9 
A 
D 
F 

03C2 
3 
6 
9 
B 
C 

03DD 
03E0 



B903 
48 

201F1F 
F0FB 
206A1F 
BA 

9D01O! 
201 Fl F 
D0FB 
68 
60 

DD03 
504153 



KEY HAS BEEN 
IN A. 




. TEXT "PASS ADRS VAL EXP* 



1 100 



1NTSIZ.; 
.END 



'•-IHTMS6 







d.d.t 


Ref.t 
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AUTEUR; G. VERKOOY 

BRAKKEVELDWEG 44 ' 

DEN HELDER 



TELETYPE TEST PROGRAMMA 



NA DaT h£T PRO GRAMMA GESTART IS TYPT KET ALLE KARAKTERS UIT 
ALS TEST VOQR DE PRINTER. 

DAAR NA KQMT MET EERSTE KARAKTER DAT BEANTWOQRD MOET WQRDEN 
DOOR HET GEVRAAGDE KARAKTER IN TE, TYPEN. 

ALS DE TELETYPE DIT GOED DOET HERHAALD HI J HET KARAKTER NOG BENS 
MET DaARNA DE HEXADEC I MALE CODE VAN DAT KARAKTER. 
HIERNA TYPT HIJ EEN "G" VOOR IEDER BIT DAT MET KET GEVRAAGDE 
KARAKTER IN OVEREENSTEMING IS. 

ZIJN EP. BITS FOU? DAN GEEFT HIJ DIT A AN MET EEN >***' VOOR EEN BIT 
TE VEEL, EN EEN VOOR EEN BIT TE WEINIG. 

TENSLQTTE VRAAGT HIJ KET VOLGENDE KARAKTER. 

'; 180 0 0 02 06C 1EA9S9 3DF2 1 7A9 028DF3 1 720 2F1 EA22 1 6a20a0 1 EE8E0 0 A4C 
; 180 0 I860 D0F7A221 8680202F1 EA6808A20A0 1EA9 5F2 0A0 1E205A1E0 999 
I 180030858 12 09E1EA5812 0A0 1E2 09E1EA58 120 3B.1 E2 0 9E1 E8A49FF09 57 
; 180 0482581 8 582a9FF4581 2580 8583A9S0 6584A9 0 8&585A584A24 7QC27 
; 1&0 0602462F0 02A22B24&3F0 02A22D8A20A0 1E46&4C685D0E6E680 0BDE 
;180078AS60C960F09DD09F2624000 10000FFFFBBBB93FFFBFFBFBFOEA3 



KIM PAGINA PRINT PROGRAMMA 
■ -- ~ - — — - — - — _ — - — _ — ____ — 

AUTEUR s G. VERKOOY 



BRAKKEVELDWEG 44 

n HELDER 



hq el* el het peqgrafjma niet a an een bepaalde locat1e in het geheugen 
getionden is* verdie^'y het aanbeveling het op de locatis's 
178c tot 17c7 dp te bergen, daar deze doorgaans niet ge3ruikt 
wori <:n 

na eat het pfiggramma gestart is, typt men het gewenste pagina 
number in, waar tsa dit uitgeprint wordt . 

NA / FLOQP V.'ORDT TEP.UG GSGAAN NAAR HET MONITOR PROGRAMMA. 
; I8i 780208C tEA6Fo209DlF86F885FB84FA202FlEA206201ElE209E0A9E 
; 181798IEC8BIFA203EIE209E1E209E1E209E1EA92B1865FA85FACAOAF9 
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MASTER MIND OP DE KIM 

AUTEURJ 6. VERKOOY 

- BRAKKEVEE.DVEG 44 

DEN HELDER 



HE? PRC GRAMMA BEGIN? DP ADRES 000 0. 

NA GESTAE©* ?E ZYN VERSCHYNU OP HE? DISPLAY A OF B 
U KUN? NU EEN KEU2E MAKEN UIT PROGRAKMA A OF B DOOR DE KNOP A OF B 
IN ?E DRUKEN. 

BY PROGR. A GENSREERF DE KIM EEN WILLEKSURIG GE?AL VAN 4 VERSCHI LLENDE 
CYFERS* EN U MOST ACHTER DA? GE?AL ZIEN TE KOMEN. 
U RAAD NU EEN GE?AL EN ?QE?S DIT IN OP DE KIM. 

NU DRUK? U VEER OP KNQP A EN OP DE ACK?ERS?E 2 DISPLAY'S VERSCHYNB 
EEN GETAL VAN 2 CYFER5 » 

HE? EERSTE CYFER GEEF? AAM HOE VEEL CYFERS U OP DE GOEDE PLAA?S 
HEB S7AAN HE? ?WEEDE HQS VEEL ER VERDER NOG GOED ZYN MAAR OP DE 
VERKEERDE PL A ATS S7AAN . 

U KUN? NU EEN NIEUW GE7AL INVOEREN EN OP A DRUKKEN ?0? U HE? 
JUIS?E GE7AL GEVONDEN HEEFT , DE KIM GEEF/3 DAN HE? WOORD "GOED" AAN. 
ALS U.HE7 GETAL NIET HUNT VINDEN KAN U DAT TE WETEN KOMEN DOOR OP 
KNQP E TE DRUKKEN . 

DRUK? U NOGMAALS OP E DAN S7AAT HE? PRO GRAMMA VEER IN DE BEGIN FAZE 
EN KUN? U VEER EEN KEUZE MAKEN 7USSSN A OF B. 

BY PR GRAM MA B LAA? U DE KIM EEN COM3INATIE VAN 4 VERSCHILLENDE CYFERS 
RiiDEN . 

NA OP DE 3 GEDRUKT ?E HEBQEN STAAT IN DE EERS7E 4 DISPLAYS HE? GE?AL 
DA? DE KIM RrtADT U TYPT DAN IN 2 CYFERS HET EERSTE VOOR HET AANTAL OP 
DE GOEDE PLAATS HET TWEEDE VOOR DE OVERIGE GOEDE# 
NA OP DE 3 GEDRUKT TE H EBB EN RAADT DE KIM EEN NIEUW GETAL ENZV. 
ALS DE KIM HET JUISTE GETAL GEVONDEN HEEFT KUNT U HEM DOOR OP DE E 
TE DRUKKEN OF ANTWOORD 4 0 TE GEVEN WEER IN DE BEGIN MODE KRYGEN. 
ALS U EEN FOUT1EF GEGEVEN INVOER? MAAKT DE KIM DIT KENBAAR DOOR 
FOUT IN IN ZYN DISPLAY TE ZETTEN. 
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HET PROGRAMMA KAN DE VOLbENDE FUNCTIES UITOEFENB 

1. STUKKEN GEHEUGEN (INSTRUKT1ES EN TABELLEN) V*s 

EEN PLAATS NAAR EEN ANDERE OVERBRENbEN • 

2. EEN AL DAN NIET "GEMOVED" PRObRAMMA CORRlttEREN 

WAT 5ETREFD ALLE ABSOLUUT INSTRUCTIES * DIE 
EEN BEREIK HEBBEN SINNEN DE OPbEbEVEN bRENZEN 

3. DE COMBINATIE VAN |« EN 2. 



WERKWYZE PROGRAMMA : 

1 . OP ADRES 0000 KAN STAAN : 

A. 00 : DWZ. HET PROGRAMMA WORDT NIET VERPLAATS 

CIS BV AL DOOR DE LOADER OP ttNDERE 
ADRESSEN GEZET OF VIA LADEN VAN TAPE E 
ID ■ FF) 

B. 01 : HET PROGRAMMA WORDT VERPLAATST BEblNNB 

MET HET LAAbSTE ADRES TOT AAN HET HOOB 
OPGEGEVEN ADRES. 
C 02 : HET PROGRAMMA WORDT VERPLAATST BEblNNS 
OP HET HOOGSTE ADRES EN EIND1GD MET HE 
LAAGSTE. 

2. DE VOLbENDE 6 BYTES MUETEN ALTYD I NGEVULD WORB 
A. OP BYTE 000 1 <L> EN 0002 (H) HET LAAGSTE 
ONTVANbENDE ADRES » 
OP BYTE 0003 <L> EN 0004 <H> HET LAAGSTE 
ADRES VAN HET TE MOVEN PROGRAMMA 
<OF VAN HET REEDS bEMOVEDE PROb !!!>. 
OP BYTE 0005 (L) EN 0006 <H> HET HOObSTE 
ADRES VAN HET TE MOV/ EN PRObRAMMA 
(OF VAN HET REEDS GEMOVEDE PROb 111). 
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. OP DE VOLGENDE 4 BYTES KAN STAAN : 
A. 00 ER WORDT bEEN CORRECT IE VAN DE AoSOLUUT 

INSTUCTIES TOEGEPASD. 
a * OP BYTE 0007 <L) EN 0008 CH> HET EERSTE TE 
VERTALEN ADRES * ZOALS HET OORSPRONKELYK WAS 
(DUS BINNEN DE bRENZEN VAN 2b EN 2C> • 
C OP 0009 (L) EN 000A <HJ HET LamTSTE ♦ 01 
TE V/ERTALEN ADRES • 
<OOK oINNLfc Pd fcN 2G>. 
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_ 



Si*! 1 4 van 6 



m 



10 HE* 1978 



j Vervangt : 



d#d# t 




FROGRAKMA KOVER 



^SL'- PROOHV 



100101 

|0020: 

la 040 : 
;0050t 
0 060: 

(0070: 
0080: 
I0090: 
|0l00: 

0110! 

0 120: 
0 130: 
m 140: 
i0 1 50 : 
jjo 1 60: 
0 170: 
0 1 H0: 
0190: 
0200: 
0210: 
0220: 
0230: 
0240: 
0250: 
0260: 
027 0: 
0280: 
0290: 
|0300: 
0310: 
0320: 
0330: 
0340: 
0350: 
0360: 
0370: 
0380: 
0390: 
0400: 
0410: 
0420: 
0430: 
0440: 
0450: 
0460: 
0470: 
04H0 : 
0490: 
0 500: 
0 5 1 0 : 
0520: 
S'J: 



03TT 

0313 
0315 
0317 
0319 
03 IB 
031D 
03 IF 
0322 
0325 
0328 
032A 
032D 
032F 
0332 
0335 
0338 
033A 
033D 
0340 
0342 
0345 
0348 
034A 
034C 
034F 
03 52 
0355 
0357 
0359 
03 5 8 
035D 
035F 
0361 
03 63 
0366 
0368 
03 6 A 
036C 
036F 
0371 
0374 
0377 
0379 
03 78 
037D 
037F 
0381 
0383 
0385 
0388 
03 8 A 
038C 
038E 



AS 
C9 
F0 
C9 
F0 
C9 
F0 
20 
4C 
20 
A5 
20 
A5 
20 
20 
20 
A5 
20 
20 
A9 
20 
20 
A2 
Al 
20 
4C 
20 
A5 
85 
A5 
85 
A2 
Al 
85 
20 
A2 
Al 
85 
20 
90 
4C 
20 
A5 
85 
A5 
85 
A2 
A5 
81 
20 
A2 
A5 
81 

££ 



19 

A9 
0E 
A2 
0A 
A0 
06 

91 03 
Fl 02 
2F IE 
16 

3B IE 
15 

3B IE 
9E IE 
9E IE 
19 

3B IE 
9E IE 

24 

A0 IE 
91 03 



VRTL1 1 



LDAZ 
CMPIM 



SAVE 
*A9 



_ 



BXad: 



5 van 6 



SEQ 


VRTL 1 2 






CMPIM 


4A2 




• 


SEQ 


VRTL 1 2 






CMPIM 


5A0 






BEQ 


VRTL 1 2 






JSR 


INCPNT 






JMP 


VRTL9 






VRTL 12 JSR 


CRLF 






LDAZ. 


VERT AD 


♦ 01 




JSR 


PRTBYT 






LDAZ 


VERTAD 






JSR 


PRTBYT 






JSR 


OUTSP 






JSR 


OUTSP 






LDAZ 


SAVE 






JSR 


PRTBYT 






JSR 


OUTSP 






LDAIM 


•* 






JSR 


OUTCH 






JSR 


INCPNT 







10 HEX 1978 



15 

3B IE 
Fl 02 

91 03 VRTL13 

15 

1A 

16 

IB 

00 

15 

0C 

91 03 
00 
15 
0D 

98 03 
03 

Fl 02 

B8 03 VRTL 1 4 

1A 

15 

IB 

16 

00 

0C 

15 

91 03 
00 
0D 
15 
J_[_ 02 



I Vervang t i 



LDXIM 

LDAIX 

JSR 

J MP 

JSR 

LDAZ 

STAZ 

LDAZ 

STAZ 

LDXIM 

LDA1X 

STAZ 

JSR 

LDXIM 

LDAIX 

STAZ 

JSR 

BCC 

JMP 

JSR 

LDAZ 

STAZ 

LDAZ 

STAZ 

LDXIM 

LDAZ 

STAIX 

JSR 

LDXIM 

LDAZ 

STAIX 



400 

VERTAD 

PRTBYT 

VRTL9 

INCPNT 

VERTAD 

SAVEAD 

VERTAD +01 

SAVEAD +01 

400 

VERTAD 
HULP 
INCPNT 
400 

VERTAD 
HULP +01 
CHECK 
VRTL 14 
VRTL9 
UMREK 
SAVEAD 
VERTAD 
SAVEAD +01 
VERTAD +01 

%m 

HULP 
VERTAD 
INCPNT 
400 

HULP +01 
VERTAD 
VRTL9 



■ 



I d«d,t 



S.T. WoldringJx 



FROGRAXKA MOVER 



— 



Kuwuers 



pRocanr 



05501 
0560) 
0570: 
0580: 
0010: 
00201 
0030: 
0040 » 
0050: 
0060: 
0070: 
0080: 
0090: 
0100: 
0110: 
0120: 
0130: 
0140: 
0150: 
0160: 
0170: 
0180: 
0190: 
0200: 
0210: 
0220: 
0230: 
0240: 
0250: 
0260: 
0270: 
0280: 
0290: 
0300: 
0310: 
0320: 
10330: 
0340: 
0350: 
|0360: 
| 0370: 
10380: 
|0390: 
0400: 
0410: 
0420: 
0430: 
10440: 
0450: 
| 0460: 
0470: 
^£5480: 
J 0490: 
]«500: 
0510: 



0391 
0393 

0395 
0397 
0398 
039A 
039C 
039E 
03A0 
03A2 
03A4 
03A6 
03A8 
03AA 
03AC 
03AE 
03 B0 
03B2 
03B4 
03B5 
03B6 
03B7 
03 B8 
03B9 
03BB 
03BD 
03BF 
03C1 
03C3 
03C5 
03C6 
03C8 
03CA 
03CC 
03CE 
03D0 
03 D2 
03D3 
03D5 
03D8 
03 OA 
03DD 
03DF 
03E1 
03 E4 
03 E6 
03 E9 
03 EC 
03EE 
03 F0 
03 F2 
03F4 
03 F6 
03 F8 
03FB 



E6 

D0 

E6 

60 

A5 

C5 

30 

00 

A5 

C5 

30 

A5 

C5 

30 

00 

A5 

C5 

30 

18 

60 

38 

60 

18 

A5 

65 

85 

A5 

65 

85 

38 

A5 

E5 

85 

A5 

E5 

85 

60 

A2 

4C 

A2 

2C 

00 

86 

20 

A6 

20 

4C 

A9 

E0 

D0 

A9 

85 

85 

4C 

60 



15 
02 
16 

0D 
12 
18 
06 
0C 
11 
10 
14 
00 
0A 
06 
13 
0C 
02 



0C 
0F 
0C 
00 
10 
00 

0C 
1 1 
0C 
00 
12 
00 

11 

DA 

0C 

40 

00 

1C 

2F 

1C 

31 

4F 

00 

11 

02 

FF 

FA 

FB 

4F 



■ 



BNE 
INCZ 
INCPT1 RTS 
CHECK LDAZ 
CMPZ 
BMI 
BNE 
LDAZ 
CMPZ 
BMI 
CHECK! LDAZ 
CMPZ 
BMI 
BNE 
LDAZ 
CMPZ 

CHECK2 CLC 
RTS 

SECPTS SEC 
RTS 

OMREK CLC 
LDAZ 
ADCZ 
STAZ 
LDAZ 
ADCZ 
STAZ 
SEC 
LDAZ 
SBCZ 
STAZ 
LDAZ 
SBCZ 
STAZ 
RTS 

ERROR L0X1M 
J MP 
LDXIM 
BIT 
BNE 
STXZ 
JSR 
LDXZ 
JSR 
JMP 

EINDE2 LOAIM 
CPXIM 
BNE 
LDAIM 

EINDE3 STAZ 
STAZ 
1C JMP 

PFTuEti RTS 



fAl 
INCPT1 

VEFTAD +01 1 

! 



6 ran 6 



HULP +0! 

ZEND AD +01 

SECRTS 

CHECK 1 

HULP 

ZEND AD 

SECRTS 

EINDAD +01 

HULP +01 

SECRTS 

CHECK2 

EINDAD 

HULP 

SECRTS 



03 



17 EINDE1 



IE 

IE 
1C 



HULP 

ONTVAD 

HULP 

HULP +01 
ONTVAD +01 
HULP + 01 



HULP 

ZENDAD 

HULP 



ZENDAD +01 
HULP +01 

SI 1 

EINDE1 
S0C 

SAD 

EIN0E2 

SAVEX 

CRLF 

SAVEX 

PRTST 

START 

S00 

Si 1 

EINDE3 
SFF 

POINTL 
POINTH 
START 




r^-i a ,"' ] 




SOFTWARE LIBRARY 



mmmmm 



PAPERTAPE LOADER 



Nummer t 



LOAD PR 



Bladi 



1 Yaa 2 



0010: 

0010: 
0020: 
00301 
00401 
0050: 
0060: 
0070: 
0080: 
0090: 
0100: 
0 1 10: 
0180: 
0130: 

0140! 

0150: 

0 1 60: 
0170: 
0180: 
0190: 
0200: 
0210: 
0220: 
0230: 
0240: 
0250: 
0260: 
0010: 
0010: 
0020: 
0030: 
0040: 
0050 : 
0060: 
0070: 
0080: 
0090: 
0100: 

01 10: 
0120: 
0130: 
0 140: 
0150: 
0 160: 
0170: 
0180: 
0190: 
0200: 
0210: 
0220: 
0230: 
0240: 
0250: 



0000 



00 

01 

F6 

F7 

FA 

FB 

31 

5A 

63 

91 

9D 



00 
00 
00 
00 
00 
00 
IE 
IE 
IF 
IF 
1 F 



0002 








0002 


A9 


00 




0004 


48 






0005 


20 


5A 


IE 


0008 


C9 


3B 




000A 


D0 


F9 




000C 


A9 


00 




000E 


85 


F6 




0010 


85 


F7 




0012 20 


90 


IF 


0015 


AA 






0016 


66 






0017 


18 






0018 


65 


00 




001A 


85 


00 




001C 


A9 


00 




001E 


65 


01 




0020 


85 


01 




0022 


8A 






0023 


48 






0024 


20 


91 


IF 


0027 


20 


9D 


IF 


00 2A 


20 


91 


IF 


002D 


A5 


01 




002F 


85 


FB 




0031 


20 


90 


IF 



*DPR ORG S0000 
1 LOADER COPYRIGHT S. T* WOLDRI NGH ■ 
; KL I EVER INK t>19 

i AMSTERDAM* 
i 



i 
I 



MET PROGRAMMA LAADT GEGEVENS OP VAN PAPER-TAPE * 
BEGINNENO OP HET ADRES GESPECl F I CEERD OP 
G EH EUG EN - PLAAT S EN 40000 <L> EN 40001 (H>. 



HET PROGRAM MA BEPAALT AAN DE HAND VAN DE 
LENGTES OPGEGEVEN IN DE PAPER-TAPE RECORDS > 
WAAR HET VOLGENDE RECORD GELADEN MOET WORDEN* 



} 
> 
i 
I 
i 
i 
} 
i 

3EGL 

BEGH 

CHKHI 

CHKSUM 

POINTL 

POINTH 

PRTST 

GETCH 

INCPT 

CHK 

GET BYT 



LOADA 



Datum ingcns i 

10 VSL 1978 



Tve?vanstT 









* 


BEGL 


♦» 1 


* 


S00F6 




* 


CHKHI 




* 


400FA 




* 


POINTL 


1/1 1 




SIE31 




'.* 


41E5A 






*1F63 




* 


*1F91 




* 


*1F9D 




ORG 


$0002 




LDAIM 


400 




PHA 




JSR 


GETCH 




CMP1M 


■ ; 




SNE 


LOADA 


LDAIM 


S00 




STAZ 


CHKHI 




STAZ 


CHKSUM 




JSR 


GETBYT 




TAX 






PLA 






CLC 






ADCZ 


BEGL 




STAZ 


BEGL 




LDAIM 400 




ADCZ 


BEGH 


- 


STAZ 


BEGH 




TXA 






PHA 






JSR 


CHK 




JSR 


GETBYT 




JSR 


CHK 




LDAZ 


BEGH 


STAZ 


POINTH 




JSR 


GETBYT 





<*Ud»* 



| Ref> x 

\M. Woldringfa 



SOFTWARE LIBRARY 



PAPSRTAPS LOADER 


Hummer: 


1 

• • 


^ 2 ^' 2 ran 2 



0260: 


0034 


20 


91 


IF 




JSR 


CHK 


0270: 


0037 


A5 


00 






LDAZ 


SEUL 


0380 J 


0039 


85 


FA 






STAZ 


POINTL 


0290 1 


00 35 


8A 








TXA 




03001 


003C 


F0 


0F 






BEG 


LOADD 


03101 


003E 


20 


9D 


IF 


1»* 


JSR 


l» ETBYT 


03201 


0041 


91 


FA 






STAIY 


POINTL 


0330t 


0043 


20 


91 


IF 




JSR 


CHK 


0340: 


0046 


20 


63 


IF 




JSR 


INCPT 


03501 


0049 


CA 






DEX 




0360} 


004A 


D0 


F2 






BNE 


LOADC 


0370: 


004C 


E8 








I NX 




0380: 


004D 


20 


9D 


IF 


LOADD 


JSR 


i» ETBYT 


0390t 


0050 


C5 


F6 






CMPZ 


CHKHI 


0400: 


0052 


D0 


17 






BNE 


LOADF 


04 10* 


0054 


20 


9D 


IF 




JSR 


to ETBYT 


0420: 


0057 


C5 


F7 






CMPZ 


CHKSUM 


0430: 


0059 


D0 


13 






BNE 


LUADG 


0440: 


00 5B 


8A 








TXA 




0450: 


00 5C 


D0 


A7 






BNE 


LOADA 


0460: 


005E 


A2 


0C 






LDXIM 


S0C 


0470: 


0060 


EA 






LOADE 


NOP 


0480: 


0061 


EA 








NOP 




0490: 


0062 


EA 








NOP 




0500: 


0063 


EA 








NOP 




0510: 


0064 


EA 








NOP 




0520: 


0065 


20 


31 


IE 




JSR 


PRTST 


0530: 


0068 


4C 


05 


00 




JMP 


LOADA 


0540: 


00 6B 


20 


9D 


IF 


LOADF 


JSR 


ttETBYT 


0550: 


006E 


A2 


1 1 




LOADtt 


LDXIM 


SI 1 


0560: 


0070 


D0 


EE 






BNE 


LOADE 



SYMBOL 

BEGH 

CHK 

LOADA 

LOADE 

LOADMP 

PRTST 



TABLE 

0001 

1F9 1 

0005 

0060 

0002 

1E31 



BEGL 
G ETBYT 
LOADB 
LOADER 
LOADPR 



0000 
1F9D 
000C 
0002 
0000 



CHKHI 
tsETCH 
LOADC 
LOADF 
POINTH 



00F6 
1E5A 
003E 
006B 
00FB 



CHKSUM 00F7 
INCPT IF63 
LOADD 004 D 
LOADtt 00<NE 
POINTL 00 PA' 



Data* in 6 «n 6 « 



I Vwvapgt t 



10 



1978 



i Ref. i 
S.T. Woldringfa 




SOFTWARE LIBRARY 



ICSSORY BLOCS TOP 
BLKDMP KIM SOFTWARE L 1 BRA~RY efjx - 1 7 cT 



Numaer: 



00 10 J 

0020 1 
0030* 
0040; 
00501 
0060: 
00 7 0i 
0080: 
0090: 
0100: 
OUO: 
0120; 
0130: 
0140: 
0 150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
I 0240 
I 0250 
I 0260 
| 0270 
0280 
0290 
03 00 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
» 0* 30 
0440 
0450 
0460 
0470 
0430 
0490 

1 0500: 



0200 



0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 



BLKDMP ORG $0200 
MEMORY BLOCK DUMP 



; % 
■ ff 



■ 



DATS: 04/28/78 



AUTHOR; FRAN S VAN DSN BERG 
3E LOOSTERWEG 88 

HILLEGOM (HOLLAND) 




- 



THE PURPOSE OF THIS PROGRAM IS TO PRINT 

A PAGE OF 



A HEX DUMP ON 



MEMORY. 

THE ONLY THING YOU HAVE TO DO IS ENTER 
THE PAGE NUMBER CTWO HEX DIGITS) FROM 

WHICH YOU WANT A HARD COPY. 
IF YOU PRESS THE <ESC> KEY THE PROGRAM 
TRANSFERS CONTROL TO THE KIM-MONITOR. 
AFTER A DUMP THE PROGRAM SKIPS 6 LINES 
AND IS READY FOR THE NEXT DUMP. 



DEFINITIONS 



0200 
0201 
0203 
0206 
0208 
020A 
020D 
0210 
0212 
0214 
0216 
0218 
021 A 



INL 




200F8 


INH 




500F9 


GETCH 


* 


51E5A 


PACK 


* 


5 1 FAC 


OUTSP 




S1E9E 


HEXTA 




S 1 E4C 


PRTBYT 




31E3B 


CRLF 


* 


S1E2F 


KIMMON 


* 


S 1 C4F 


OUTCH 




S1EA0 


START 


OF PROGRAM 1 


START 


CLD 






LDXIM 


SO 1 



STX 
STX 



D8 

A2 01 

20 66 02 STARTA JSR 
86 F9 
86 F8 
20 5A IE 
20 AC IF 
C9 IB 
FO 48 
C9 OD 
DO F2 
A2 02 
20 66 02 



LINES 



DO TUO LINE FEEDS 
CLEAR IT 



INK 
INL 

GSTCH GET HEX PAG EN 0 
JSR PACK AND STORE IN INL/H 
CMPIM S18 
BEQ ESCAPE 
CMPIM SOD 
BNE INPUT 
LDXIM S02 
JSfl LINES 



jf" "Datua~ingang » 



is 



23 APH 1978 
I , — — ... 



Vegygngs t 




F.v.d.Berg 



our i wAKl LibKMKK 



MERORY BLOCK WJHP 



BLKDMP KIM SOFTWARE LIBRARY 65XX-1.0 PAGE 02 Of 2 



0510: 


021D 


A2 


03 






LDXIM 


S03 


OS 20: 


021F 


20 


5F 


02 




JSR 


SPACES 


0530 1 


0222 


20 


9E 


IE 


HEADER 


JSR 


OUTSP 


OS40; 


0225 


20 


9E 


IE 




JSR 


OUTSP 


0550; 


0228 


8A 








TXA 




0560 J 


0229 


20 


4C 


IE 




JS* HEXTA 


0570 : 


0220 


E8 








I NX 




| 0530; 


022D 


EO 


10 






CPXIM 


$10 


I 0590; 


022F 


DO 


Fl 






BNE 


HEADER 


1 0600; 


0231 


A2 


01 






LDXIM 


SO 1 


1 0610: 


0233 


20 


66 


02 




JSR 


LINES 


] 0620: 


0236 


AS 


F9 




PRT 


LDA 


INH 


J 0630: 


0238 


20 


3B 


IE 




JSR 


PRT BYT 


I 0340: 


023B 


A5 


F8 






LDA 


INL 


J 0650: 


023D 


20 


3B 


IE 




JSR 


PRTBYT 


1 0660: 


0240 


20 


9E 


IE 


OUT 


JSR 


OUTSP 


j 0670: 


0243 


C8 








INY 




0680: 


0244 


Bl 


F8 






LDAIY 


INL 


0690; 


0246 


20 


3B 


IE 




JSR 


PRTBYT 


0700; 


0249 


E6 


F8 






INC 


INL 


0710: 


024B 


FO 


OB 






BEQ 


END 


0720; 


024D 


A9 


OF 






LDAIM 


SOF 


0730: 


024F 


24 


F8 






BIT 


INL 


0740 ; 


0251 


DO 


ED 






BNE 


OUT 


0750: 


0253 


20 


2F 


IE 




JSR 


CRLF 


0760: 


0256 


DO 


DE 






BNE 


PRT 


0770: 


0258 


A2 


05 




END 


LDXIM 


S05 


0780: 


02SA 


DO 


A7 






BNE 


STARTA 


0790: 


025G 


4C 


4F 


1C 


ESCAPE 


JMP 


KIMMON 


0000: 


025F 


20 


9E 


IE 


S&CES JSR 


OUTSP 


0310: 


0262 


CA 








DEX 




0320: 


0263 


DO FA 






BNE 


SPACES 


C330: 


0265 


60 








RTS 




C840 : 


0266 


A9 


OA 




LINES 


LDAIM 


SOA 


0350i 


0263 


20 AO 


IE 




JSR 


DUTCH 


0360: 


026B 


CA 






■ 


DEX 




03 70: 


026C 


DO 


F8 






BNE 


LINES 


0880: 


026E 20 2F 


IE 




JSR 


CRLF 


0890; 


0271 


E8 








I NX 




0900; 


0272 


60 








RTS 




ID» 

















DO SIX LINE 



K ailTtjtafc^r-i - SOFTWARE LIBRARY 



Evaluate BASIC 



BA${C 



JL 



2i^ T 1 VAN 6 



Gnlanga koaht ik voor de KIM een nieuw speelgoedje* Dit was 8K 
BASIC gemaakt door MICROSOFT en in Nederland te koop bio Koopmans. 
Ruw weg gesproken bevat deze BASIC alles ;wai een normale BASIC ook 
biedt* behalve matriz-opsraties, imaginaire getallen en file^opslag. 
(Dit laat$te is vrij logiseh* als er geen device is om de files in 
op slaan) » 

Mijn systeem bevat 26K RAM. De terminal is een video display. 

Het eerste verrassende van dit pakket was de hoge rekensnelheid 
en de gvote nauwkeurigheid van de matematisehe funkties. Dit maakt 
van de KIM voov alle rnogelijke toepassingen een ideale programmeer~ 
bare rekenmaahine ♦ : v 

De eerste tegentialler bij dit pakket was de dokumentatie. De 
dokumentatie is eigenlijk niet aanwezig. Er wordt een lijstje ver~ 
atrekt van de statements en characters , Verder is er een steneyl^ 
dat verteltj als je een bepaald boek ('Sahaum's outline series 9 pro-* 
gramming with BASIC) hebt> wat je dan aan het boek moet veranderen 
om het op deze BASIC-versie vawtoepassing te laten zign, 

De eersta rekennauwkeurigheid waar ik nieuwsgierig naar was> was 
de sinus. Deze gebruikt meestal wel optellen* aftrekken* vermenig- 
vuldigen en delen* zodat als de sinus goed is* het normale rekenen 
ook goed is, Teneinde de nauwkeurigheid te bepalen geldt de volgende 
formule: 

SIN(X)®SIN(X)+COS(X)MCOS(X} - 1 
Het volgende programma w&rd gedraaid: 

£ M*I*T 

3 PRINT "HQBK"# ••SlIsUS*^ w COSl NUS M V^8U« Van KWAijHATEiV 1 
\U PI«9*|*!S0to*4|)|$»| HET bETML PI 
?0 F*0»REM «£iiINWAAH*>E Van DE HUEri 
3W TbPI/8 9RBM Elfti)WAAHu£ VAN £E HOEK 
4ft S*P§/8«:REM STAPtfROOTTE 

b# FOR ft#F TO T STEP StRgh aEijlM VAN £E EUUP 

feft ai*si*<n;*rem »sreken sinus 

1* ft«*CQS<tOlRKK oEREKEfc DE CUSIMfS 
fctf A3*At*AI+A2*A2:REM DE SOU VAN DE KWaDRaTEN ' 
*9<A PRINT N,Af*A«*A3 
itffl NEXT 

1 1 » eivi> .......... 
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2 VAN 6 



De reeultaten Mervan waren ale 



HOEK 

•157W79633 
•3141 S9S65 
• 47 123fc89b 
•6PH31H531 
•78539H163 
•94P477796 

I .H9955743 
! •256637^6 
1 .4 137 1 669 



mmm 

^156434465 
•3W9tf 16994 

• 45399H5. 
•bb7785252 
•707 106761 
•HH9016994 

• K91fW6524 
•951W 56616 
•9b76K834 



y8768834 
.951056516 
.89 1006524 

.6090l6yy4 

.707106781 
.567785252 

•453y905 
.3090 1 «">994 
. 1 56434464 



SUh V/AN KWMiiHMTEN 
1 

1 
1 



yyyyyyyyy 



Pit zie* er uitstekend 



programme, heeft een 



test, om de juiste antvoorden niet uit te printen. Alleen de afwij- 
kingen worden geprint: 



1 PHI NT "NAUWKEURI bHEI DSbEREK ENI Nb MICROSOFT oASIC OP DE Klh-l 

2 PRINT 

3 PRINT '•H0EK^'VSINUS","CGSINUS , S M SOfo VaN DE KWADRhTEN" 
\* PI *3*NI5V2654lREfri hET OETaL PI 
20 F*=M:REl v i bEblNWAARDE </AN DE HOEK 
3« T = P 1/2: HEh EINDWAARDE VaN DE HOEK 
4** SMP'J /^HiHEh STAPbROOTTE 

50 FOR N = F TO T STEP S : REfc oEbIN Van DE LOOP 
6(4 Al *SINiN> t REtt BEKEKLfx DE SINUS 
7H a2=C0S<N> :REM dEREKEN DE COSlNUS 
M A3=Al*Al+A2*A2:REh DE SON VAN DE KWADRaTEN 
HS IF A3«l bOTO LlHI^ni MLS HET KLOPT, PRINT Law Nl £T 
90 PRINT ^AUA8iA3 
1 NEXT 
i ! ^ END 



NAUWKEMHItiHEIDSnKREKENIMi hlCPOSOFT nASIC UP L-E hlto-l 



- 



HOEK 
0 

. 1 S7079633 
.314159265 
.47 1 236H98 
.785398 1 63 
.942477796 
1 .M99 5574 3 
1 .2S663706 
1 .4137 I 66y 



SI NITS 
0 

.156434465 

.3t*90i6994 
.4539905 

.7071067bl 

•hwy^i 6yy^ 

.69 1006 524 
.951056516 
.98768834 



COS I N» IS 
1 

.96768834 
.951056516 
.89 1 006524 
.707106761 
.587785252 
.4539905 
. ? 3090 16994 
.156434464 



SUM 9AM ui. KWADKATEW 
| 

1 
1 

.yyyyyvyyy 

1 

1 

1 

1 



Varvftngt : 



\Sie\ 



Datum ingangt 
9 mei 1978 



d.d.i 



Siep de Vriee 
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Nummer x 



BASIC 



I' 



aaa« 3 V an 6 



Dit is verrassend. Er is niet mindev output dan bio de vovige 
versie. Dit betekent, dat het outputgedeelte een afvonding pleegt 
en dat due het antwoovd, dat in A3 staat t versehillend is van het 

Het volgende programme maakt de test iets ruimer en staat een 

afwijking van 0,000000002 naar beide kanten toe. 

■ 

1 PPINT •^AUWnFJfPIbhEIDSnEHEKENlNb NloHOSUfT dMSIo OP utu hltt-l" 
P PHINT 

3 PHI NT ••HO£h ,, j "S IN!)^", "COS I ivUS # S "SON VAN ^jc K WhuHaThW 
I* Pl=3.i4lS9P654:PEN HET UlThL PI 
PH K = H:FE>i n£bl wU'MARCE VAN i^E HOch 
3H fttVl/gtREh ElNDW**MR£E Van DE HULK 

4 0 SrPl/^tW^i STAPbPUUTTiL 

5^ fc'OP N = F TO T STEP S:REN oEbIN VAN DE i-OUP 

Al =SIN<N> : HEM nEREKEN t>E SINUS 

7« Ag«COS<ft>*RKfc nEREKEN DE COSINUS 

Ktf AS^Ai^Al+AP^APiPEh DE SUC Vhim DE KWaDRATEN 

HI IK A3>1 *<AlAVi\A\A\A1AiA\ bOTO 

HP IK A3<*U999999999 bOTU 9*3 

83 bUTO \m 

HS If a3 = 1 bUTU 1 WW: HEM ALS h£T KLOPT* PRINT uHU wIET 

9^ print u*&t*m*m 

\iA<A NEXT 
110 END 

. 

Dit programma printte geen enkel getal uit. Zodra due een ant- 
genoeg is, wordt het niet meer gemeld. 
volgt een test over een volledige oirkel in 1000 stappen. 
Deze test geeft vrij veel output* waarvan ik enige opmerkingen wil 
maken: 

- de meeste afvijkingen doen zioh voor bij negatieve sinus of aosinus 
In het algemeen kan gezegd worden, dat in het eerste kwadrant 
(0-90 graden of 0 - PI/2 radialen) de minste afwijkingen voor- 
komen. 

- in het gebied van 0-90 graden komt de grootste onnauwkeurigheid 
voor zodra de sinus van een kleine of de aosinus van een grote 
hoek wordt berekend. 

Ter illustratie van de meest grove afwijkingen hier de output 
als de grens tot * of - 0 S 000000003 verruimd werd: 




Datum ingangi 




1 d.d.i |R»f.» 


9 mei 1978 


\r 


1 Siep de Vries 
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Hummer t 



BASIC 



» 1 van 6 



si 



NAPWKfct'VlUhEISSohHEKEMNb MCROSUFT oMSlu UP oc Mh-I 

- 

HOEK 
I .57079633 
2. 3561 9451 
3. 14 159269 



3.92699087 
4.71238895 
5.1584950 
5.3909728 
S. 44123836 
5.491 50383 
5.5417693 
5.59203478 
5.82451261 



-3 



NUS C0S1NUS 
999999998 -5.1 
707106765 -.707106799 
.94987b82£-06 

-.70710674 



' "i 

1 



KWAuHaT&W 

.9999V9V96 



i 99999999 
.902133997 
>77b46?375 
►74594122b 
»7I 153576b 
►675332909 
,637424099 
►44 87 5b3b5 



-•V99999967 
1 



-8 .9256361 bb-0tt 

.431456969 I 

.627691272 1 

•666011777 1 

•7026496b 1 

•737513027 I 

.770513 154 1 

•69664096? I 



•99999997b 
•99999996 



Op <2£i punt leek het mij nuttig om hetzelfde nogeene te herhalen 
maar nu met de hoek uitgedrukt in graden in plaats van radialen, 
omdat graden mij persoonlijk een beter gevoel geven dan vadialen. 
De tabel volgt Kiev; 

NAlFVKEURltiHEIDSBEHEKEtsJlNli MlCHUSUhT oAbio UP ul Klh-I 



HOEh 

90*0000003 
135*000001 

160*000002 
225*000003 
269 .99999b 
?95*559995 
308.6799V3 
31 1 .759993 
314.639993 
317 .51999? 



SINUS CU SINUS SUM Vaim ufc KWAi/HATtW 

• 999999 99b -5 • b5 1 67232E-09 
•707 106765 -.707 106799 1 
-3 .949 67bb2ii,-0b -.999999 967 

-•707106624 -.70710674 1 
-2 •9256361 6E-06 



.999999996 
.9999*9975 



-.99999999 
-.902133997 
- .77b462375 
-•745941226 
-.71 1535766 
-.675332909 



320.39*992 - .637424099 
333.71999 --4427S6385 



•43 14 5596V 

.627691 272 

•66601 1 777 

•7026496b 

•737513027 

•770513154 

.696b40V6? 



•9999999b 



r rife 



Wit dese tafcel Zijfet te volgen, dtit de nauwkeurigheid in het 
eerste kwadrant inderdaad het best is. 

Om dit te controleren is gebruik gemaakt van de regel: 

Aangezien we er alien in geinteresseerd zijn om een zo gvoot 
mogelijke nauwkeurigheid te bereiken y wordt iedere hoek gereduoeerd 
tot een hoek van kleiner dan 90 graden, door er net zolang 90 graden 
vanaf te trekken tot de hoek inderdaad 90 graden is geworden. In de 
prdktijk dieiit er dan rekening mee te worden gehouden, dat de sinus 



Datma* ingattg: 

9 mei 1978 



| R»f. t 

Siej> de Vriest 



ttim 



Jar- 
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van een hoek in het 3de en 4de kwadrant gelijk is aan de negatieve 
sinus van de hoek minus 180 graden. 

Voor een nauwkeurigev oosinus moet dan de oosinus (X) gereduceer I 
worden tot eveneens een hoek kleiner dan 90 graden. HierbiJ moet 
rekening worden gehouden met het feit, dat de oosinus in het 2de en 
4de kwadrant gelijk is aan die in het lste en Zde kwadrant. 

Het prggramma (met de nauwkeurigheid tot 0,000000001 terugge- 
braoht) luidt: 

I PRINT •'iMAUWKEIfRIbhLIliSnc.WtKtlJllvu hlCKUSUfT oP&tC OF „c 
? PRINT 

3 PHI NT ,, HUEK","SIMiS","CUSUvHS"/"SUI-, VAN or. Kwh^WmTcK" 
1H PJ =3. 1 4I59P.6S4 : Pn.fi hET UETrtL PI 
9M F=H:W£M oEbl^WAAHJE VaN I>E hOEn 
3 Pi T = Pl/?:PEf) ElN^WAARoE VAN life HOEK 

S«Ply5tWt»Eh STAPbHUUTTE 
SH FOR W=F TU T STEP Si REM oEblN VAN „i LUUP 
*S X = N ' 

a1=sincx; 

7M A2=C0S<X> 

AH A3=Al*A!+AP*Ay:REf»; DE SUM VAN KWAuRATfcN 
HI IF A3> I . WVHWVMm 1 bUTU 9H 
*2 IF A 3<M. 999999999 bUTU 90 
K3 bUTU 100 

H5 IF A3=l bOTU 100: REM ALS HET KLUPT* PRINT JaN NlfcT 
40 PWINT N/<P*P| >*36t»*Al*Ag*A3 
|Wf» NEXT 
1|H Elv^i 



■ 



■■'Si 



■ P 



met als resultaqt: 



J 



■ ■ " : 



i 



A"WK £1 IH I bH h I D^nK^EK £i\ I Nb hICHUSUif nASlv 'UH ,l h^i 



HOEK 

30.2400001 

37 .43999 99 
4 6.07 9999 8 

47 .5199998 
56* 1 599997 

57 .5999996 

62 .6399998 

65.5199998 

65.8799998 

67 ..6799999 

70 .9? 



St WIS 
. 503623202 

•607930297 
• 720309022 v 

•737513 1 1S> 
.630595896 ; 

.844327922 

.86 8 1 3644 7 

.9 10105969 

.91269 1586 

.925077206 

.945063075 



•8639 2 34 1 6 



S.U>i x VMiV oh KW 
•999999999 

• 9.99999999 i 



•79 399 0 39 9 .99999999S 

. 6 936 5 3 3 0 6 ; . 9 9 99 9 9 99 9 / 

.5358268 .999999999 
•459679804 



.4 143 75584 
.408649077 
^3797790^7 
. 32688:603 



•999999999 
. . 999999999 
f.9999999V9 
•999999999 
.99999999 9 
.999999999 



Datum ingang: 


Vervangt : 


9 - mei 





| Ref. t 
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I 



Nuuer t 



BASIC 



£121' 6 VAN 6 




van 



Resumerend zou ik kunnen zeggen, dat de rt 
MICROSOFT BASIC verrassend goed zijn, zeker als in aanmerking wordt 
genomen, dat niet alleen de nauwkeurigheid maar ook de snelheid 
hoog is. 

Een kleine tegenvaller is, dat enerzijds de response op de 
/C toets (om exeautie van een programma te onderbreken) buiten- 
gewoon sleaht is (ongeveer 25 
mentatie zo sleaht is. dat de ver 

zoals shift/0 en het commercial at sign die op mign 
zig zijn, een hele klus wordt. 
Dit laatste is alleeri 




itie 



- 

wordt afgeweken. Als U een KIM heeft met 16K RAM, een teletype en 
een cassette recorder * zult U on 



of beroep 

meebrengt, dat er veel gerekend moet worden (metaal constructies, 
betonconstructies, curve evaluatie, chemische analyses en dit in 
meest uitgebreide zin des woords), U ontzettend veel p 
hebben aan deze MICROSOFT BASIC. 
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1 VAN 2 



Uiteraard zijn in de in KIM KENNER 3 gepubliceerde programma's 
weer enige bugs gevonden. Je zou haast zeggen dat ik ze er expres 
in stop om te kijken of er wat mee gedaan wordt. Dit zou overigens 
geen slecht idee zijn 3 omdat het mes dan aan twee kanten snijdt: 
Op de eerste placets leert U (gedwongen) debuggen en op de tweede 
plaats zou U er wel eens meer fouten uit kunnen halen dan er opzet- 
telijk zijn ingestopt. Niets van dit alles is echter waar. Ik doe 
mijn best om alles zo goed mogelijk uit te werken en moet daarbij 
konstateren dat ik ook maar een mens ben. Hier komen ze: 



In programma SPOC 
worden aangepast: 
0339 02-0 



. ^ 



26 



4 - DISASSEMBLER voor MCS 6 SOX moet het volgende 

B3 - 033C DO - 033B 08 - 033E 40 - 033F 09 



met de vriendelijke dank aan Step de Vr-Cee die e.e.a. heeft ontdekt 
rd 



en 



In programma FP001 - Basic floating point routines moet het volgende 
worden aangepast: 

1D00 AS 03 09 - 1D14 85 OA - 1D24 BS 08 - 1D28 BD D4 ID 

1D2B 95 08 - 1D33 A2 03 - 1D35 B5 08 - 1D3B 95 08 - 1D48 A2 03 

1D56 BS 08 - 1D5A 95 04 - 1DSF 20 77 IF - 1D6A 95 08 - 1D6F 20 4A IF 

1D7A 10 F8 - 1D7C 20 9D IF - 1D89 20 50 IF - 1D95 20 77 IF 

1D98 A2 03 - 1DA2 20 SO IF - IDAS A2 03 - 1DA9 95 04 - 1DAC 10 F9 

1DB9 10 F8 - 1DBB 20 77 IF - 1DC4 BD 10 ID - 1DCA 10 F8 

1DCC 20 77 IF - 1DD4 80 SA - 1DDC 80 52 - 1DDE 8040 - 1DE6 08 66 

1E0A 20 77 IF - 1E0D A2 03 - 1E0F BS 08 - 1E27 AS OA - 1E2B AS 09 

1E2D 69 00 - 1E33 A2 03 - 1E35 95 08 - 1ES1 95 04 - 1E54 10 F7 

1ES6 20 77 IF - 1ES9 A2 03 - 1E60 BS 08 - 1E6F 95 04 - 1E79 BS 08 

1E82 BS 18 - 1E89 20 77 IF - 1EA3 10 F8 - 1EAB A2 03 - 1EB2 10 F9 

1EBB 95 04 - 1ECS BD E8 ID - 1ECB 10 F8 - 1ED3 65 08 - 1ED5 85 08 

1ED8 80 5C -1F03 BS 09 - 1F05 75 OS - 1F07 95 09 - 1F0V 06 03 

1F12 24 09 - 1F14 10 05 - 1F16 20 8F IF - 1F1C A2 04 - 1F1E 94 OB 



, Datum ingang* 
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KIW KENNER 3 



I 



Nuramer: 



Blad: 



BUGS 
2 van 2 



(vervolg correcties op FPOOl - basic floating point routines): 
1F20 B5 07 - 1F22 - B4 03 - 1F24 94 07 - 1F26 95 03 - 1F2E 85 08 
1F32 85 OB - 1F34 FO 08 - 1F36 C6 08 - 1F38 C6 OB - 1F3A 26 OA 
1F3C 26 09 - 1F3E A5 09 - 1F41 45 09 - 1F43 30 04 - 1F45 AS 08 
1F4A 20 8F IF - 1F4D 20 5D IF - IPSO A5 04 - 1F52 CS 08-1FSB 70 05 
1F5D 90 BD - 1F5F AS 09 - 1F62 E6 08 - 1F6A BO 01 - 1F74 DO F2 
1F83 90 03 - 1F8S 20 00 IF - 1F8B 46 03 - 1F90 A2 03 - 1F92 A9 00 
1F94 F5 08 - 1F96 95 08 - 1F99 DO F7 - 1FAO E5 08 - 1FA8 B5 05 
1FAA FS OC - 1FB3 90 02 - 1FB5 95 08 - 1FBA 26 OB - 1FBC 26 OA 
1FBE 26 09 - 1FCO 06 07 - 1FC2 26 06 - 1FC4 26 OS - 1FCD 86 OB 
1FCF 86 OA - 1FD1 86 09 - 1FD3 BO OD - 1FDS 30 04 - 1FDD 85 08 
1FE8 A5 08 en 1E80 95 08 - 1E9B A2 03. 

Dat Das het. Overigens zijn dit niet allemaal fouten, maar meer 
een onduidelijke afdruk van nullen die op de letter C lijken. 
De echte fouten zitten op looaties lD00 t 1D28, lDB9 t 1DD4, 1E22 
1E82, 1ECB, 1FAA. 1FBA. Met dank aan de heer S.T. Woldringh voor 
het opsporen van de fouten en het aangeven van de verbeteringen. 
Mocht U in enig in deze nieuwe KIM KENNER gepublioeerd programma 
een fo'ut ontdekken, stuurt U dan even een briefkaartje naar: 



KIM GEBRUIKERS CLUB NEDERLAND 

SOFTWARE LIBRARY 

S SEME IMS SIR 78 1 

1061 GM Amsterdam 

of even bellen: 

020 - 860245 



"SEES 

9- mei 1978 
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Progranaaa beschri jring 
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- 



AUTEUR :DJF. Sumter 
Lijtweg 506 
Oogstgeest 



PROGRAM: BINARY TO BCD COVERS ION. 



Met behulp van de te beschrijven ROUTINE is het mogelijk am een 
8-bit binair getal om te zetten in een *f(?)-digit BCD getal.Het 
programma toetst de N bit van de statusregister om te zien of er 
een 1 of een 0 aanwezig is.Bij aanwezigheid van een 1 wordt de 
bijbehorende BCD-w,arde bij de DATA f Y locatiesopgeteld . Indien het 
een 0 is wordt het om te zetten getal ddorgeschoven # Aan het eind 
van deze bewerkingen bevindt het BCD-p;etal zich in de locaties 
DATA, 00 en DAT A, 01. 

Voorbeeld: Binair FF DATA, 00 55 

DAT A, 01 02 

In het tweede gedeelte van het programma (vanaf LABEL SOM^worden 

de gegevens uit DATA, 00 en DATA, 01 verdeeld over h locaties ,DLSPL,X. 

DAT A, 00 55 D IS PL, 00 05 

Q2 DISPL,01 05 



DATA, 01 



DISPL;02 02 

00 altijd mil. 



Dit was in het programma noodzakelijk i.v.m. het multiplexen van 
een LED-display . 

DATA * adres 0000 
DISPL= adres 0050 
KMAX = adres OOOA 
(bevat binair getal) 

LET OP!! De code B9 00 00 is bedacht om in ZERO PAGE toch de Y-index 
te kunnen gebruiken 9 de plaatsen waar dit werd toegepast zijn 
aangegeven met het teken % %.Aangezien er weinig JSR en JMP 
instructiefc zijn gebruikt zal h et weinig moeite kosten om dit 
programma voor eigen gebruik aan te passen* 

Het gedeelte van Hi et programma van LABEL LOOPB tot REST wordt tweemaal 
doorlopen.Tijdens de eerste pass worden de eenheden en de 10-tallen 
gerangschikt en tijdens de tweede pass worden de 100- en de 100-tallen 
bewerkt • 



> C i * Site******* i*»4»*M'*« j- *' 



EI NARY TO BCD COKTBRSIOlf 



Sain liaa 



I 



Nuffii&ers 



Bled j 
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PROGRAM* 




AUTEUI 


BINARY TO BCD CONVERSION 




++++++++++++++++++++++++ 




27A0 4o 


BIBCD 


PHA 


27A9 oA 




TXA 


27AA 48 




PHA 


27AB 9o 




TYA 


27AC 4o 




PHA 


27AD A2 00 




LDXIM 00 


2(AF AO 01 




LDYIM 01 


27B1 9& 00 




SIX DATA,Y 


27B3 Co 




INY 


2(B l v 9& 00 




STX DATA,Y 


27P6 A5 OA 


LOOPA 


IDA KMAX 


27E0 10 09 




BPL SHIFT 


nr'i'T 1 ft /"s ft 

27BA 2A 




R0L A 


27BB o5 OA 




STA KMAX 


272D 20 F4 27 




JSR ADD 


2700 4C Co 27 




JMP NEXT 


27C5 2h 


otj'i T:im 

SHIFT 


R0L A 


27C4 85 OA 




STA KMAX 


27C6 Eo . 


NEXT 


INX 


27o7 E0 08 




CPXIM 08 


2709 po 05 




ESQ SORT 


27CB 4c B6 27 




JMP LOOPA 


27GS AO 01 


SORT 


LDYIM 01 


2fD0 A2 01 




LDXIM 01 


27D2 B9 00 00 / 


Vfi L00PB 


IDA DATAyY 


27B5 29 OP 




ANDIM OP 


27D7 95 50 




STA DISPL, X 


2/X9 B9 00 00 ! 


m 


IDA DATA,Y 


27DC 1b 




CLC 


27DD 4A 




LSR A 


27DE 4A 




LSR A 


OTTTYHI il A 




LSR A 


2?E0 4A 




LSR A 


27E1 E8 




INX 


27E2 95 50 




STA DISPL,: 


27E^ E8 




INX 


27E5 C3 




INY 


27E6 E0 05 




CPXIM 05 


2?e8 po 03 




REQ„ REST 


27E.A 4C D2 27 




JMP LOOPB 


.'Tr.D 63 


REST 


PLA 


27EE A8 




TAY 


27EP 63 




PLA 


2?F 0 AA 




TAX 


27P1 68 


PLA 


27P2 60 




RTS 



!:D. F.Sumter 
Lijtweg 506 
Oegstgeest 



Reset x Register 
Reset y Register 
Reset Locatie 0000 

Reset Locatie 0001 

Binair getal naar A 

Naar SHIFT indien Bit 7=0 



Spring naar ADD routine 



Is laatste bit al omgezet? 
Zo j a, naar SORT 
Zo nee, naar LOOPA 
Preset Y register op 01 
Preset X register op 01 
De eenheden en 10-tallen naar A 
Reset bits 4,5,6 en 7. 
Eenheden BCD-code naar 0050+X 
De eenheden en 10-tallen naar A 



De 10-tallen nu in bits 0,1,2 en 5 
De 10-tallen BCD+code naar 0050+X 



1000-tal reeds omgezet? (altijd 0) 

Zo ja,naar REST (RESTORE) 

Zo nee haal 100- en 1000-tal. 



BINARY TO BCD 


CONVERSION 










Bladt . 


&TYD °roti*t i nfi on *t s.l?QH©r» 


! 




3 van 3 














% 
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PROGRAM: BINARY TO BCD CONVERSI 


ON 


OEGSTGEEST 




+++++++++++++++++++++* 




















ADD ROUTINE 








+++++++++++++ 








27F6 AO 01 ADD 


LDYIM 


01 




27F6 18 


CLC 






27F7 F8 


SED 






27F8 B9 00 00 %% 


T.na 

XJXjJn. 


DATA, Y 




27FB 7D OD 28 


ADC 


CODE ) X 




27FE 99 00 00 % % 


STA 


DATA,Y 




2801 C8 


I NY 






2802 B9 00 00 % % 


LDA 


DATA , Y 




2805 7D 15 28 


ADC 


ACODE, X 




2808 99 00 00 % % 


STA 


DATA, Y 




2oOB Do 


CLD 






280C 60 

1 


RTS 






LDYTM Load 'immpd'iatfi 








LDXIM Load immediate 








Tabellen met BCD-code, 


CODE en 


ACODE. 




♦ ♦♦♦♦■»■++♦+■»•■•■+♦+++++++++++++++•»•+++++++ 




2«0D 28 CODE 


* adres 280D 2815 01 ACODE = 2815 


280E 64 




2816 00 




280F 32 




2817 00 




2810 16 




2818 00 




2811 08 




2819 00 




2812 04 




281A 00 




2813 02 




281B 00 




2814 01 




281c 00 




Eenheden en 10-tallen in 


Honderdtallen. 





BCD-code 



Datum ingangs 


Vervangtt 






|Re™ t 


31 aaaart 1978 






I D.F. Sumter 



